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COPYRIGHT! 
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ALIEN DODGE 
BY MEL SAUNDERS 
FOR 64-CDL XTAL BASIC 

10 REM «««*«««*«*«*»»*»«§«**« 

20 REM «'ALIEND0DGE' * 

30 REM # MEL SAUNDERS 2/84 # 

40 REM *«e*«4«**i«*«f*#*««««* 

S0 REM 

60 REM «*»»«#»*»«*»«§*«««**«»«*« 

70 REM * DO YOU HAVE A PSG OR * 

80 REM « PCQ CARD,THIS PROGRAM « 

90 REM * WILL MAKE USE OF BOTH # 

100 REM * BUT WILL WORK WITHOUT » 

110 REM 
120 REM 

130 REM ««#«*«*«««««««««««««»«** 

140 REM * LINES 210-220 DEFINE * 

150 REM * MAN AND EXPLOSION » 

160 REM 
170 REM 

180 CLSiPRINT@25,12,"PLEASE WAIT" 

190 REMtCHANGE CURSOR OTHERWISE 
200 REMtITS A MESS WITH PCG! 

210 Q-RND(255) 

220 FORT = *(F800 TO ItFFFFi POKET, Qs NEXTT 
230 POKESiFaOO,56,56,16,254,186,186,56,40,40,108 
240 POKEtiFSlO,84,149,75,82,56,181,90,60,155,60 
250 CLS 

260 PRINTai0,4,iINPUT" ENTER NAME PLEASE "jNliPRINT 

270 PRINTei0,6,*' DO YOU NEED INSTRUCTIONS "|iI«INCHiIF 1-89 THEN GOSUB 860 
280 PRINT810,16," WHAT IS YOUR SPEED (0-9) ")!K-INCH'48 
290 IF K<0 OR K>9 THEN280 
300 K»K*3 

310 PRINT@10,1B," WHAT LEVEL (1-9) ''pLL»INCH-48 
320 WL-LL*25 
330 CLS 

340 FOR ALIEN-ITOWL 
350 P-I(F000 + RND(1536) 

360 POKEP,t(lC 

370 NEXTALIEN 

380 P0KE*(F5FD,8(1E,*(1F 

390 REMiSTART POINT.RUN COUNT 

400 R-iiF002i J-1 

410 REMiNO PCG POKE'R' WITH fclD 
420 POKER,S(80iPOKER+32,8(20 
430 FORT-1TO500INEXTT 
440 PRE-R 
450 M-KBD 

460 1FM-S(50 THEN R = R + liGOTO 490 
470 IFM=<I(51 THEN R = R-liGOTO 490 
480 R-R+64 

490 IF PEEK(R)»*(1C THEN 590 

500 IF PEEK(R)-*(1E OR PEEK(R)=(clF THEN 650 

510 REMsNO PCQ POKE'R' WITH IdD 
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520 POK£PRE,32iPOKER,&80 

530 REM:CONVERT SPEED INPUT 

540 S=K/K/K»1000iFDRY»lTOS*NEXTY 

550 IF R>8tF5FF THEN POKER, ((20i GOTDBl 0 

560 6OTO440 

570 REMiCRASH ROUTINE 

580 REMIND PCQ POKE'R' WITH MA 

590 POKEPRE,«(20iPOKER,«<81 

600 GOSU61060 

610 FORT«lTO500iNEXTiCLS 

620 PRINT94,ll,'*you have just had a nasty... ACCIDENT! ! when you recover 
would you like....." 

630 GOTO 770 
640 REMiWIN ROUTINE 
650 POKEPRE,Si20 
660 GOSUB1120 

670 FORQ-OTOUi OUT&C0,aiOUTSiCl ,0iNEXTQiCLS 
680 I0M4,1:I0M5,1 

690 PRINTe4,6,"WELL DONE "Nl" YOU MADE IT JUST IN TIME TO ESCAPE" 

700 IF J-1 THEN RI«"RUN" 

710 IF J>1 THEN RI-'-RUNS" 

720 PRINT@11,S," IT TOOK Y0U"J:R$" AT A SPEED DF")K/3 
730 IOM4,0iIOM5,0 

740 PRINT8n,10,*' AND YOUR LEVEL WAS "iLL"i"WL 
750 IOM4,liI0M5,1 

760 PRINT811,12," YOUR ASTRO RATING £")LL*(K*K/.35+J)iPRINT 

770 PRINT911,14," ANOTHER GAME ? "pA^INCHiIF A = B9 THEN 280 

780 CLSiPRINTiPRINTei,12,"WELL GOODBYE "Nl" COME AND PLAY AGAIN SOMETIME 

'STINKER'"! 

790 END 

800 REMiNEW RUN 

910 R=R-1536!J=J+1 

820 IF PEEK(R)=*<1C THEN POKER,8(20 

830 GOTO520 

840 REM:INSTRUCTIONS 

850 DIM H$(6) 

860 CLSi Hid)**".ALIEN DODGE 

870 H*(2)="*#*#*»*###»»»**#***»#»»##»*»***»»»***»****»#####*#*#*»##»###»##" 
880 H$(3)®" you are at the top leFt of your scanner 'your'mission is to get 
to your CRAFT IN ORDER TO ESCAPE!" 

890 H#( 4 )*>'' this you will find at the bottom right of the scanner! But you 
must dodge the aliens that float about in space" 

900 H$(5)a" USE THE 'Q'KEY TO TAKE YOU TO THE LEFT AND THE ‘P'KEY WILL 
MOVE YOU TO THE RIGHT" 

910 H$(6)=" you will be blown to bits if... you hit an alien, BUT just may 
survive for another RUN!" 

920 the game WILL START ON .. 

2ER0 COUNT 

930 F0RI«lT07iPRINT 
940 FOR J=1T0LEN(H*(I)) 

950 PRINT MID$(H$(I),J,i)| 

960 F0RT=1T075:NEXTT:NEXTJiPRINT:NEXT! 

970 I0M4,1:I0M5,1 
980 FDRT=100Ta0 STEP-1 
990 FORa=lTO100:NEXTQ 
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1000 PRINT«26,23Jj!PRINT€30,23/’AND COUNTING"; 

1010 NEXTT 
1020 IOM4,0!1OM5,0 
1030 CLS 
1040 RETURN 

1050 REMiEXPLOSION SOUND 
1060 RESTORE 10901FORT*0TO13i READA 
1070 OUTfeC0,TjOUT8cCl,A 
1080 NEXTT 

1090 DATA0,0,0,0,0,0,31,7,16,16,16,0,120,0, 

1100 RETURN 

1110 REMiTAKE-OFF SOUND 

1120 RESTORE 1140i FORA = 0TO13 1 READZ * OUT8(C0, As OUT&Cl, 2 1 NEXTA 
1130 RESTORE 1140 

1140 DATA 100,0,0,0,0,0,0,26,20,0,0,0,20,12 
1150 REM:TAKE-OFF DISPLAY 

1160 FORVh&FSFD TO S(F000 STEP-65i POKEV-1, *(20 , *<20i POKEV, ME , fclFi 

FORQ»lTOK/K/K*100iNEXTQiPOKEV,<t20,8<20jNEXTV 

1170 RETURN 
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WHY I FIRED MY SECRETARY 

Today Has my 40th birthday and I Hasn't Teeling too hot this morningj but Hent 
down to breakfast knowing that my wife would be pleasant and say "Happy 
Birthday" and probaly have a present for me. She didn’t even say "Good 
Morning" let alone say "Happy Birthday". 

I said. "Well that's wives for you, the children will remember". The children 
came into breakfast and didn't say a word. I was feeling pretty despondent 
when I started off to work. 

As I walked into my office, Wylma said "Good morning boss. Happy Birthday". 
I felt a little better, as someone had remembered. 1 worked until noon when 
Wylma knocked on my door and said, "You know, it’s such a beautiful day 
outside, let's go to lunch, just you and I“. I said, "By George that's the 
greatest thing I have heard all day, let's go". 

We went to lunch. We didn't go where we normally go, we went out to the 
country to a little private place. We had two martinis and enjoyed lunch 
tremendously. On the way back to the office Wylma said, "Lets go over to my 
place and I will fix you another martini". 

We went to here place, enjoyed another martini and smoked a cigarette, when 
she said, "Boss, if you don't mind I think I'll go into the bedroom and slip 
into something more comfortable". I allowed her as I didn't mind at all. 

She went into the bedroom and in about six minutes she came out, carrying a 
big cake, followed by my wife and children singing "Happy Birthday" and there 
I sat with nothing on but my socks. 
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UUMPUS 

FOR XTAL BASIC 
BY BRUCE JOYCE 

1 CLEAR 
10 CLS 

20 PRINTei0,6i"'')iAI“INCH$ 

30 IFA$ = '*Y"THENQOSUB610 

60 cls!Rem*»set up caves 

70 DIMS(20,3) 

80 FORJaiTO20 
90 F0RK=1T03 
100 READS(J,K} 

110 NEXTK 
120 NEXTJ 

130 DATA2,5,8,1,3,10,2,4,12,3,5,14,1,4,6 
140 DATA5,7,15,6,0,17,1,7,9,8,10,18,2,9,11 
150 DATAl0,12,19,3,11,13,12,14,20,4,13,15,6,14,16 
160 DATA15,17,20,7,16,1B£,9,17,19,11,18,20,13,16,19 
170 REM**LOCATE ITEMS IN CAVES 

180 REM»*l-Y0U,2-WUMPAS,38i4-PITS,5$t6-BATS,7l<88(9«ARR0WS 
190 DIML(R9),M<9) 

200 F0RJ=1T09 
210 LtJ)»RND(20)+l 
220 M(J)aL(J> 

230 NEXTJ 

240 REM*#CHECK FDR ERRORS ie.L(1) =>1 (2) 

250 F0RJ-1T09 

260 FQRK-JT09 

270 IFJ-KTHENQOTO290 

280 IFL(J)«L(K)THENQOTO210 

290 NEXTK 

300 NEXTJ 

310 REM#»SET ARROWS 
320 ARb2 
330 L«L(1) 

340 REM **** 

350 AR»2!CLS:PRINTe24,0j“''»Ml = 0 

355 PRINTe40,4)"DO YOU NEED A MAP?"iiI$=INCH»iIFI♦»"Y"THENL(7)=0iL(8)»0i 
L(9)=0iRESTOREiFORX»lTO236iREADDiNEXTXiMl»liGOSUB6000 
360 REM*HAZARD WARNINGS AND LOCATIONS 
370 FORAX=1TD500 iNEXTAXiPRINTiGOSUBl100 
380 REM##MOVE OR SHOOT 
390 QOSUB1270 
400 DNOGOTO420,460 
410 REM#»#SHOMaT 
420 OOSUB1360 
430 IFF-0THEN370 
440 QDTO480 
450 REM MOVE 
460 GOSUB1S60 
470 IFF=0THEN370 
480 IFF>0THEN530 
490 REM »*»LOSE 

500 PRINTei0,21;"HA,HA,HA,YOU LOSE! 
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518 GOTO540 
520 REM»#»WIN 

530 PRINT§10,21;"WflTCH OUT!!"iPRINTil0,22j"IWUMPUS WILL GET YOU"l 
PRINTil0,23j"NEXT TIME!!" 

540 F0RJalT09 
550 L(J)«H(J) 

560 NEXTJ 

570 FORX9«lTO2000iNEXTX9:CLS:PRINTei0,10("SAME SET UP(Y/N)?": 
PRINTei0,i2|"PRESS'Q'TO QUIT" 

580 I$»INCH$ i 

590 REM 

600 IFI$h"N"THENGOTO200 

605 IFI$="Y“THENGOTa320iELSECLS!END 

610 REM*»INSTRUCTIONS 

620 CLSiPRINT828,0(MUL$("",8):PRINT@28,lj“"iPRINT828,2;MUL$("",8) 

630 PR1NTS0,4;"The wumpus lives in a cave of 20 rooms.each room has 
3 tunnels leading to other rooms. 

640 PRINT"(The idea is based on a dodecahedron,)" 

650 PRINT"There are several hazards to encounter in the caves. 

660 PRINT"PITSi-Two rooms have bottomless) pits in them. 

If you enter them.. 

670 PRINT"SUPER BATSi-Two other rooms have super bats in them. 

If you enter then you will be grabbed by a bat and carried off. 

680 PRINT"If they dropped you in a pit or on the wumpus then. 

690 PRINT"WUMPUSi-The wumpus is not usually bothered by the hazards as 
he has big sucker feet and is very heavy. 

700 PRINT"shhhI He is asleep,The two things that wake him are your going 
into his room or you shooting your arrow. 

710 PRINT"If the wumpus wakes up he ma y move into an adjoining room or 
stay where he is. 

720 PRINT”If when he settles you are in that room....wumpus is always hungry 
730 PRINT:PRINT"Pre55 any key to continue"!X*INCH:FORX=4TO20i 
PRINTe0,X;SPC(64)iNEXTX 

740 PRINT00,4;"At each turn you have to decide whether to move or shoot a 
guided arrow, 

750 PRINT''MOVINGi-You may travel through any tunnel to another room 
760 PRINT"ARROWSi-Ydu start with two arrows.there are a further three for 
you to find in the cave.If you run out you lose. 

770 PRINT"Each arrow can travel from one to five rooms.You guide the arrow 
by telling the computer the rooms that you want it to go 
780 PRINT''through. If there is no tunnel to that room then the arrow moves 
at random to the next room. 

790 PRINT"If the arrow hits the wumpus then you win.Bewarefbecause the 
tunnels interlink you could shoot yourself. 

800 PRlNT"The computer will warn you when you are one room away from a 
hazard.Those bottomless pits are very draughty places. 

810 PRINT"Ydu will be offered a map to use.This is really only for those 
who are deeper ate,try not to use it. 

820 PRINT"Use of the map destroys the extra arrows. 

830 Xi=INCHiFORX = 4TO20iPRINTe0,XiSPC(64) iNEXTX 

840 PRINT@0,4;"Please remember to always enter move coordinates* and 
arrow guidence with two digits:-" 

850 PRINT" eg.Move to room 03 not 3 

arrow to room 09 not 9 

1080 I$»INCH$ 


Produced on an INTERAK 


Page 7 





Interaktion User Group Newsletter Number 13 - September 1986 


1090 RETURN 

1100 REM ##PRINT LOCATION I HAZARDS 
1110 GOSUB3000 
1120 FQRJ=2T06 
1130 F0RK-lTa3 

1140 IFS(L(1),K)<>L(J)THENGOTai210 
1150 0NJ-160T01 160,1180,1180,1200,1200 
1160 CLSt6OSUB4000} PRINTe40,1 10;»“ 

1170 GOTO1210 
1180 PRINTe40,llj“" 

1190 GOTO1210 
1200 PRINT040,12; 

1210 NEXTK 
1220 NEXTJ 

1230 PRINT040,14|''YOU ARE IN R00M"|L(1} 

1232 FORJ=7TO9iIFLU)»L(J)THENPRINTS40,13;"“iL(J)=0iA9R-AR+liGOTQ1240 
1235 NEXTJ 

1240 PRINT048,1S;“TUNNELS LEAD";S(L,1);S(L,2}; Sa , 3) 

1260 RETURN 

1270 REM*» CHOOSE OPTION 

1280 PRINTS40,17;"SHOOT OR MOVE(S/M)?"; 

1290 II»INCH$ 

1300 IFU<>"S''THEN1330 
1310 0»1 
1320 RETURN 

1330 IFI$<>"MMHENGOTO1280 
1340 0»2 
1350 RETURN 

1360 REM»*ARRQW ROUTINE 
1370 F=0 

1380 REM*«PATH OF ARROW 
1390 L=L(1) 

1400 PRINTS40,18|''No.OF ROOMS (1T05) ?"; 

1410 J9»VAL(INCH$) 

1420 IFJ9<1ORJ9>5THENGOTO140B 

1430 F0RK=1T0J9 

1440 PRINTe40,19i’'ROOM £■’; 

1450 P(K)«VAL(INCH$(2))iIFP(K)>20ORP(K)<ITHENGOTOl440 
1460 IFK<-2THEN1500 
1470 IFP(K)<>P(I<-2)THENGDTO15B0 
1480 PRINTS40,20|"TRY ANOTHER ROOM" 

1490 GOTO1440 

1500 PRINTei00,20|SPC(26)iPRINTei00,21;SPC(26)iNEXTK 
1510 REM«» SHOOT ARROW 
1520 F0RK-1T0J9 
1530 F0RK1»1T03 

1540 IFS(L,K1)=P(K)THENGOTD1700 
1550 NEXTKl 

1560 REM«* NO TUNNEL FOR ARROW 
1570 L»S(L,RND(3)+1) 

1580 GOTD1710 
1590 NEXTK 

1600 PRINTe40 ,20,"MISSED" 

1610 L=L(1} 

1620 REM »« MOVE WUMPUS 
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U30 GOSUBITBG 

1640 REK««ARR0I); CHECK 

1650 AR»AR-1 

1660 IFAR>0THENGOTO1680 

1670 CLSiPRINTS10,10i""iF=-l 

1680 RETURN 

1690 REM SEE IF YOU GOT SOMEONE 
1700 L=P(K) 

1710 IFL<>L(2)THENGOTO1750 
1720 GOSUB4000:GOSUB4200 )PRINT§10,2 | 
1730 F»1 
1740 RETURN 

1750 IFL<>L(11THENGOTO1590 
1760 CLSsPRINT§10, 2|’"' 

1770 F=-liRETURN 

1780 REM»* MOVE. WUMPUS ROUTINE 

1790 K«RND(4)+1 

1800 IFK«4THENQOTO1B20 

1810 L(2)nS(L(2),K} 

1820 IFL(2)<>LTHENGOTO1850 
1830 PRINTei0,02)'"'1608084100 
1840 F«-l 

1850 IFF>0THEN CLSi IFM1>1THEN6OSUB6000 

1855 RETURN 

1860 REM«M0VE ROUTINE 

1870 F=0 

1880 PRINT840,18)"WHERE TO?") 

1890 L=VAL(INCH$(2)) 

1900 IFL<1ORL>20THENGOTO1880 
1910 FORK«1T03 
1920 REMtt#CHECK LEGAL MOVE 
1930 IFS(L(1),K)=LTHENGOTD1990 
1940 NEXTK 

1950 IFL-L(1)THEN1990 

1960 PRINT§40 ,19j"N0T POSSIBLE" 

1970 GOTO1880 

1980 REM*CHECK FOR HAZARDS 

1990 L(1)=L 

2000 REM ** WUMPUS 

2010 IFL<"'>L(2)THENGDTO2080 

2020 PRINT940,18)"...OOPS! A WUMPUS!!!" 

2025 FDRX=lTO1000iNEXTX 

2030 REM **MOVE WUMPUS 

2040 GDSUB1790 

2050 IFF=0THEN2080 

2060 RETURN 

2070 REM»* PIT 

2080 IFL<>L(3)ANDL<>L(4)THENGOTO2130 
2090 CLSiPRINTQlG,10)"" 

2100 F=-l 
2110 RETURN 
2120 REM*BATS 

2130 IFL<>LI5)ANDL<>L(6)THENGOTO2170 
2140 PRINT910,2) 

2150 L=RND(20)+1 


Produced on an INTERAK 


September 1986 


Page 9 




Interaktion User Group Newsletter 


Number 13 - September 1986 


2155 FDRX9»lTO1000iNEXTX9jPRINTil0,2|SPC(37) 

2160 GOTO1990 
2170 RETURN 
2180 END 

3000 FaRX»lTQ20iPRINTe40,X+2|SPC (23)sNEXTX: RETURN 
4000 RESTORE:FORX=lTO60iREADUiNEXTX 
4010 F0RX«5Tai5 
4020 FORX{1»10TO25 

4030 READX3I IFX3*= ITHENPRINTeX I, X; CHR$ (((7F1 
4040 NEXTXlfX 

4060 DATA0,0,0f0,l,l,lfl,l,l,lfl,0,0,0,0,0f0,0,0,1,1, If 1,1,1,1,1, 

0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 0 , 0,0 
4070 DATA0,0,0,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1, 
0,0,0,0,0,1,51,1,1,1,1,1,1,1,1,1,1,1,1,0 
4060 DATA0,0,0,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1, 
0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,16,0,0,0 
4090 DATA0,0,1,1,0,0,0,0,0,0,0,0,1,1,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0,1,1,1 
4095 RETURN 

4100 SET31,34iSET32,34iSET39,34!SET40,34 
4105 F0RZ=1T0 9 

4110 SET31,31iSET33,31)SET36,31)SET37,31iSET41,31 

4120 SET30,30iSET31,30 iSET32,30:SET34,30:SET345,30:SET36,30i3ET38,30i 
SET 40,30iSET41,30 
4130 FDRX = lTO500iNEXTXtPRINTei5,8; 

4140 FORX=1TO200*NEXTX:NEXTZ 
4145 RETURN 

4200 RESET31,34iRESET32,34iRESET39,34iRESET40,34 
4210 SET32,34:SET33,34iSET38,34iSET39,34 

4220 PRINTS21,12j"<.<<<" 

4230 RETURN 

6000 D-1 

6010 F0RT=IT034 

6020 GOSUB6240 

6040 IFA:»A1THENGOTO6190 

6050 C=(B1-B)/(A1-A) 

6060 IFA<AlTHENLElTS=liELSELETS=-l 

6070 IFB<B1THENLETC=ABS(C):ELSELETC=ABS(C)*(-1) 

6080 LETD=B 

6090 IFABS(A-A1)<10THENGOTO6100 

6100 IFA>A1THENLETA=A-1:ELSELETA1=A1-1 

6110 IFC<1THENLETS1=-1:ELSELETS1=1 

6120 FORX^ATOAISTEPS 

6130 FORXl-DTOD+CSTEPSl 

6140 SETX,X1 

6150 NEXTXl 

6160 D*D+C 

6170 NEXTX 

6180 NEXTT 

6185 GOTO6400 

6190 IFB>B1THENSNAPB,B1 

6200 F0RX=BT0&1 

6210 SETA,X 

6220 NEXTX 

6230 NEXTT 

6235 6OTO6400 
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6240 IFDnlTHENREADA,B,Al,fil)D«0JRETURN 

6250 A»AliB»61 

6260 READA1,61:R£TURN 

6270 DATA40,4,5,15,10,36,70,36,75,15,40,4 

6280 DATA40,10,18,18,20,30,60,30,62,18,40,10 

6290 DATA29,14,35,16,45,16,50,22,40,26,30,22,35,16 

6300 DATA4S,16,51,14,62,18,75,15,70,36,60,30,61,24,50,22,40,26,40,30,20, 
30,10,36,5,15,18,18,19,24,30,22 
6400 FORCX»48TO50 

6405 F0RX1-48T057 

6406 1FX»48ANDX1-48THENX1»49 
6410 READA,B 

6420 PRlNTfiA,B)CHR*(X + ite0} )CHR«(X1+{(B0} 

6425 IFX-50THENRETURN 
6430 NEXTX1,X 
6440 RETURN 

6500 DATA19,21,19,18,25,16,30,15,36,16,35,5,4,5,3,16,9,15,13,16,17,15,21, 
15,24,12,3A0,12,29,8,20,8,9,B,8,12,15,12,19,10 
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TAECOMM NEWS FILE 
By Tom Evans. 

SYSOP for "TDM'S BULLETIN BOARD" 

A new Interak bulletin board has started testing daily from the hours of 11pm 
through 7am the following morning. 

FLASH GORDONS BULLETIN BOARD 
300 Baud 2 Stop No parity 
Dronfield (0246) 410873 
Address f 
The Planet Mars 
C/0 229 Stonelow Road| 

Dronfieldt 

Derbyshire. 

S18 6ER. 

System Operators 
Flash Gordon! 

Dale Arden, 
and Professor Zarkov. 

Try it NOW . 


Taecomm birth date} 14/10/85 


*» UPDATE 17/07/86 ## 

“Response at last" 


We seem to be getting an exchange of dialogue, now that a reply option has 
been included in the General Message section, plus users helping one onother 
out with various problems, I haven't managed to get the continuous flow to 
message reads and replies, but am still working on it very hard (honestly!). 
I have been looking at some other BB software, but its not as user friendly as 
this package, plus I am just getting to know how to make the changes, so I 
think I will stick to what I have got for the present, unless of course I run 
into some big problems. 

My disk drive problems "seem" to be solved, after suffering many seek errors 
over a long period of time, I find that my regular routine maintenance 
schedules are to blame, I used a silicon lubricant (name supplied on request) 
on the main head slides, this turned after a few days to something that 
resembled black Bostic, and effectively glued the head guides to the slides. 
Now the rule is NO lubricants to be used at any time, I really am a glutton 
for punishment! 

The hunt for a new auto baud scan modem is proving very disappointing, lots of 
rubbish spouted in the adverts, but when you get down to the nitty gritty, 
they prove next to useless, and very expensive, so will have to wait for a 
while to accumulate cash, and hope for better performance by the 
manufacturers. I would dearly love to get the higher speeds, but can't 
Justify the cost at present. 

My Interak passed its V.A.T test when the Customs and Excise carried out the 
periodic V.A.T inspection, and said they were impressed with the machine and 
software (of course I wrote it), saying it was o^k and I can continue using it 
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for the accounts, well I wouldn't fancy going back to the old entry by hand 
method now anyway (yuk). Do you wanna buy any Accounts software, after that 
boost I think I will put it on sale* 

Precious time has been taken up of late in the design (forced on me) of a 
replacement power drive control for one of Barbara's knitting machines, I had 
previously made the drive with direction changes via a relay, micro switches, 
and a bicycle brake cable for thread colour changes (really clever stuff), but 
although worked very reliably for 4 years, the old fart next door complains 
that it is too noisy, now I being a very sensitive person (plus knowing 1 
would never get away with shooting the old sod) decided to re-design the 
direction changing mechanism '(the noisy bit), well the prototype ran 
succesfully the other day, working on magnetic switches and one SCR, plus a 
length of "N” gauge railway track for the sliding stops circuitry, it is now 
really quiet, that is till the old boy next door finds something else to moan 
about, no pleasing some twitSi 

See yas .Tom* 


Produced on an INTERAK 


Page 13 




Interaktian User Group Newsletter Number 13 - September 1986 


BLACK HOLE 
By Allan C Weaver 

(For a VDU-K 32 chars x 24 lines) 

CEd - I have no details of what you do to play the game- sorry.] 

6000 ED 73 E0 60 CD F0 61 2A 0E 60 3E IE 77 3C 23 77 

6010 21 48 F0 3E 6F 06 03 77 CD 3A 61 23 CD 3A 61 77 

6020 CD 3A 61 CD 3A 61 2B 2B 77 11 12 00 19 77 CD 3A 

6030 61 23 23 23 CD 3A 61 77 10 DD 21 00 F0 06 20 3E 

6040 7F CD A5 60 21 E0 F2 06 20 CD A5 60 21 IF F0 06 

6050 17 77 23 77 C5 06 IF 23 10 FD Cl 10 F4 21 61 F0 

6060 CD AA 60 CD FC 60 CD FF 61 CD 89 62 FE 4E CA 00 

6070 00 FE 4D 20 12 3A E2 60 FE 00 28 06 AF 32 E2 60 

6080 18 05 3E 01 32 E2 60 FE 5A 20 12 3A E3 60 FE 00 

6090 28 06 AF 32 E3 60 18 05 3E 01 32 E3 60 CD E4 60 

60A0 CD FF 61 18 BB 77 23 10 FC C9 3A E2 60 FE 00 28 

60B0 16 23 3E 7F BE 2B 28 16 AF 77 23 CD 4D 61 3E IB 

60C0 77 3E 01 32 E2 60 C9 2B 3E 7F BE 23 28 EA AF 77 

60D0 2B CD 4D 61 3E IB 77 AF 32 E2 60 C9 00 FF 8F F2 

60E0 00 00 00 00 E5 C5 11 01 00 21 7C 15 CD F7 60 38 

60F0 03 2B 18 F8 Cl El C9 E5 ED 52 El C9 3A E3 60 FE 

6100 00 28 1C CD 3A 61 3E 7F BE CD 43 61 28 1C AF 77 

6110 CD 3A 61 CD 4D 61 3E IB 77 3E 01 32 E3 60 C9 CD 

6120 43 61 3E 7F BE CD 3A 61 28 E4 AF 77 CD 43 61 CD 

6130 4D 61 3E IB 77 AF 32 E3 60 C9 D5 F5 11 20 00 19 

6140 FI D1 C9 D5 F5 11 20 00 ED 52 FI D1 C9 3E 6F BE 

6150 F5 3E IE BE 28 6B 3C 23 BE 2B 28 65 FI C0 ED 7B 

6160 E0 60 CD 41 62 AF 32 DC 60 CD 6F 61 C3 00 60 E5 

6170 21 22 F0 11 96 61 CD BB 61 21 42 F0 11 81 61 CD 

6180 68 61 Cl CD 89 62 FE 59 C0 FE 4D C8 FE 5A C8 FE 

6190 4E CA 00 00 18 ED 59 4F 55 20 46 45 4C 4C 20 49 

61A0 4E 54 4F 20 41 20 42 4C 41 43 4B 20 48 4F 4C 45 

61B0 0D 41 47 41 49 4E 3F 0D lA FE 0D C8 77 23 13 18 

61C0 F7 ED 7B E0 60 3A DC 60 3C 32 DC 60 CD FI 61 C6 

61D0 80 CD E6 61 CD FI 61 CD E6 61 Cl CD 41 62 FE 0F 

61E0 D2 63 62 C3 00 60 C5 06 05 CD E4 60 10 FB Cl C9 

61F0 AF 11 00 F0 21 00 F3 12 13 CD F7 60 20 F9 C9 E5 

6200 2A DE 60 3A DD 60 FE FF 3E 7F 28 07 2B BE ^0 23 

6210 23 18 07 23 23 BE 20 0B 2B 2B 3A DD 60 2F 32 DD 

6220 60 El C9 2B 2B AF 77 23 22 DE 60 3E IE 77 23 3C 

6230 77 El C9 22 DE 60 3E IE 77 23 3C 77 23 AF 77 El 

6240 C9 3A DC 60 F5 FE 0A 38 BC DE 0A F5 3E 31 11 5D 

6250 F0 CD 61 62 FI C6 30 11 5E F0 CO 61 62 FI FE 0F 

6260 C9 12 C9 21 82 F0 11 7C 62 CD BB 61 CD 41 62 AF 

6270 32 DC 60 21 00 60 E5 21 83 61 E5 C9 59 4F 55 20 

6280 48 41 56 45 20 57 4F 4E 0D 06 00 DB 40 C6 80 30 

6290 03 47 18 F7 78 B7 DE 20 C9 06 
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ACEY 

BY MEL SAUNDERS 
FOR 64-COL XTAL BASIC 
5 CLS:A$a''«««»ACEYe«ACEY««tt'' 

10 PRINTe24,2,Af 

21 PRINTfi20,12,''DO YOU NEED INSTRUCTIONS " ;i Z»INCHi IFZ=B9 THEN GOSUB 2000 

110 Q«100iM>100iCLS 

111 IFQ»>1000 THEN GOTO 3000 

120 CLS]PRINTfi24,2,AliPRINTS20,5,''YOU NOW HAVE '“|Q 

130 PRINT 

140 GOTO 260 

210 Q>Q+M 

220 GOTOlll 

240 D-Q-M 

250 GOTO 111 

260 PRINT«19,7/'HERE ARE YOUR NEXT TWO CARDS " 

270 AaRND(14)^2 
280 IFA<2 THEN 270 
290 IFA>14 THEN 270 
300 B-RNDU4)+2 
310 IFB<2 THEN 300 
320 IFB>14THEN 300 
330 IFA>«B THEN 270 
350 IFA<liTHEN 400 
360 IFA»11 THEN 420 
370 IFA«12 THEN 440 
3B0 IFA-13 THEN 460 
390 IFA-14 THEN 480 
400 PRINT 031,10,A 
410 GOTO 500 
420 PRINT830,10,"JACK'' 

430 GOTO 500 

440 PRINT830,10,"QUEEN" 

450 GOTO 500 

460 PRINTS30,i0,"KING" 

470 GOTO 500 

480 PRINTSSB.IO/ACE" 

500 1FB<11 THEN 550 

510 IFB-11 THEN 570 

520 IFB-12 THEN 590 

530 lFB-13 THEN 610 

540 IFB-14 THEN 630 

550 PRINT031,12,BiGOTO 650 

570 PRINT«30,12,"JACK''iGOTO 650 

590 PRINT«30,12,"QUEEN" 

600 GOTO 650 

610 PRINT«30,12,"KIN8" 

620 GOTO 650 

630 PRINT930,12,"ACE" 

640 PRINT 
650 PRINT 

660 PRINTfi25,14,jINPUT"WHAT IS YOUR BET "jM 
670 IFMO0 THEN 680 

675 CLS!FORT=lTO10iPRINTfi4*T,10*T,"CHICKEN!!!!"iFORX«lTO20B:NEXTX* 
PRINT€4*T,lBtT," "*FORXalTO100iNEXTX,T 
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676 PRINT 

677 GOTO lU 

666 IFM<«a THEN 730 

690 CLS:PRINTei2,12/SQRRY,MY FRIEND BUT YOU BET TOO MUCH" 

700 PRINTei4,13/'YDU HAVE ONLY ‘"iQ 

710 GOTO 650 

730 C«RND(14)+2 

740 IFC<2 THEN 730 

750 IF014 THEN 730 

760 IFC<11 THEN 810 

770 IFC-11 THEN830 

780 IFC«12 THEN 850 

790 IFC-13 THEN 870 

800 IFC-14 THEN 890 

810 PRINT«31,20,C 

820 GOTO 910 

830 PRINT-JACK" 

840 GOTO 910 
850 PRINT^QUEEN" 

860 GOTO910 
870 PRINT-KING- 
880 GOTO 910 
890 PRINT-ACE" 

900 PRINT 

910 IFOATHEN 930 

920 QOTO970 

930 IFC>«B THEN 970 

950 CLSjPRINT829,12/'Y0U WIN!!!" 

951 RESTORE 390i FORX«0TO13i READAi OUTS<C0, X t OUTStCl«Ai NEXTX 

952 0ATA9S,0,0^0,0,0,0,26,20,0,0,0,100,8 

953 FORT-1TO1000INEXTT 

954 FORX»0TO13iOUTt(C0,XiOUTS(Cl ,00tNEXTX 

955 FORF»lTO2000iNEXTF 
960 GOTO 210 

970 CLSi PRINTa27,12,-SORRY,YOU LOST " 

977 FORT-1TO2000INEXTT 
980 IFM<Q THEN 240 
990 PRINT 
1000 PRINT 

1010 PRINTai6,16,-SORRY, FRIEND BUT YOU BLEU YOUR UAD" 

1020 PRINTe20,17,iINPUT"TRY AGAIN (yes or no) "jC$ 

1030 IFLEFT$(C$,1)»-Y- THEN 110 

1040 CLSjPRINTfi23,12,"0.K HOPE YOU HAD FUN" 

1050 END 

2000 CLSiPRINTe24,2,A*iPRINTe2,4,- ACEY-DUCEY IS PLAYED IN THE FOLLOWING 
MANNER" 

2010 PRlNTiPRINT" THE DEALER Icomputer) DEALS TWO CARDS FACE UP YOU THEN 
HAVE THE OPTION TO GAMBLE OR NOT DEPENDING-" 

2020 PRINT" ON WHETHER OR NOT YOU THINK THE THIRD CARD WILL HAVE A VALUE 
BETWEEN THE OTHER TWO." 

2030 PRlNTiPRINT" IF YOU DON'T THINK IT WILL BE SO YOU CAN PASS JUST BY 
ENTERING A 'RETURN' THE MESSAGE IS A BIT UNKINDl" 

2040 PRINT«25,22,"PRESS A KEY TO PLAY "|iI«INCHiRETURN 
3000 CLSiPRINTe3,3," YOU HAVE BROKE THE BANK YOU NOW HAVE" Q "DOLLARS"! 
FORBaiTO2000iNEXTBiGOTO100 
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EPROM PROGRAMMING AND A DESIGN AND TESTING AID 
David M ParkinSf Greenbank Electronics. 

Nothing stands still in engineering, especially electronic engineering 
especially computer engineering. 

It was clear to me that Interak needed a new EPROM programmer; particularly as 
large size (8K, 16K, and beyond) EPROMs are readily available for just a few 

pounds, and not least because new Interak cards (VDU-2K and SBC-1) actually 
have space for such EPROMs. 

The full details of the design (to be called PGM-l) will have to be another 
story, but briefly the design calls for 5V only operation, power removal from 
socket for exchange of EPROMs, so called "intelligent” programming, ability to 
cope with all currently used EPROMs, and no utilisation of the memory space 
for the PQM-1 design. 

This doesn't sound too demanding, but what a nightmare it turned out to be 
when the design began. For a start there are at least 4 programming 
algorithms. The easiest is the one with which most "ZYMON” users will be 
familiar. ■t-2SV, the programming voltage, is applied, address and data are set 
up on the EPROM pins and a single programming pulse of SO ms is applied. This 
means that programming proceeds at the rate of about SO seconds per K. Much 
faster than earlier methods but very tedious with the biggest EPROMs, for 
example a 64K EPROM would take nearly an hour to program if this method was 
used. 

Texas Instruments have complicated things by issuing an errata to their 
earlier data sheets. Now they say 10 ms (maximum 11 ms) should be used, but 
fail to say how the user is supposed to tell one type of EPROM from another 
difficult as they use the same part numbers as before. 

More modern EPROMs (eg 2764, 27128) allow an even faster methodi 

The programming voltage (21 volts now, just to be awkward) is applied, address 
and data set up, and 1 ms pulses used. After each pulse the data is verified 
until (we hope) it is correct. Of course this is a much smaller dose of 
electricity than used previously and some safeguards are insisted on by the 
manufacturers so that they can guarantee data will be retained for at least 10 
years as previously. Firstly programming must be carried out with a higher 
voltage than the normal +5V on the Vcc supply pins. The voltage used is 6.0 
volts, and at this voltage all the internal thresholds are raised. The idea 
is that if the device just scrapes through a verification test at 6.0V, it 
will be fine when Vcc is lowered to its normal level of 5.0V. However this is 
not the whole story; when using this "algorithm” for EPROM programming, it is 
vital for long term data storage to use an "overpulse" - a count is kept of 
however many 1 ms pulses were required, and the count is multiplied by 4 to 
give the value of the overpulie. If the number of 1 ms pulses reaches 15 
without data verifying the overpulse is given anyway and the device failed if 
that location does not verify after the overpulse. Mith this method typical 
programming rates are IK in 5 seconds or so. 

So far so good, but more complications arise as we move on. Other, bigger 
EPROMs (eg 27256 and 27512) use a method which is the same, but different. 
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They use a similar method but this time allow up to 25 of the initial 1 ms 
pulseSf failing the device outright if location does not verify before this 
limit is reached. The overpulse factor is now reduced to 3 times the number of 
initial pulses required. The required elevated voltage for Vcc during 
programming is 6.0V as before, but there is another change in the programming 
voltage Vpp, which is now specified to be 12.5V. This algorithm is called the 
"intelligent programming algorithm", which is why we all want to use it. Most 
modern designs of EPROM programmer allow for this, and a wide choice of Vpp 
voltages as well, thinking they've cracked it. Using the intelligent algorithm 
reduces typical programming rates to IK programmed in about 4 seconds. 

Something very new however, and causing even more consternation to the poor 
designer, is to be found on an Intel data sheet for a production EPROM called 
the 27256P. As well as allowing the Intelligent algorithm just discussed they 
introduce a new algorithm called the "Quick Pulse" algorithm. This requires a 
new Vcc of 6,25 Volts, a new Vpp of 12,75 Volts (both very accurately set), 
and the use of 100 microsecond pulses as initial pulses. Up to 25 of these may 
be applied until the data verifies, and the device failed if a location does 
not verify after that, but no over-pulses are required. Typical programming 
rates, excluding the overhead of the programmer itself, are IK programmed in a 
tenth of a second! You will appreciate that this is about 500 times faster 
than the rate I mentioned when I began this discussion. 

It is obvious that our design has to accommodate the latest types if we are to 
hold our head up high in the computer world, especially as most other 
programmer designs have started wrong footed thinking it is only Vpp that is 
subject to numerous variations, little did they know Vcc was going to be just 
as volatile in the end. 

These weird algorithms and voltages are only one part of the nightmare; 
another frightener for the poor programmer designer is the number of same but 
different pinouts. Some EPROMs are in 24-pin packages, some in 28-pin, some 
have an active low signal for programming, some active high. Addresses and 
control pins wander about from device to device, and generally things can get 
pretty messy. Many cowardly designers limit themselves to the "27 series" of 
EPROMs because they are mostly the same; when they list the number of devices 
allowed the list looks so comprehensive that the casual user thinks everytliing 
is there, but if we're to do the job properly we should also try and include 
the "25 series" as well. A sticky one at the top of the range is the 27512, 
because when the 64K EPROM (which is what this is) is reached the 28-pin 
package is bursting at the seams and it is one of the messier ones to program. 
Some designers allow for full software selection of "all EPROM types" (except 
the exceptions of course!) My goal is to accommodate even the awkward ones, 
without resorting to changing on-board links and the like. 

Even though EPROMs are laughingly claimed to be upward compatible, (ie new 
ones are supposed to fit in old sockets with only the most minor of changes), 
I discovered that there are 3 distinct places where an evil Vpp voltage can be 
applied, and 2 places for Vcc, with numerous cases of vagrancy as far as other 
signals are concerned. 

You will see in the data sheets for the first few 28-pin EPROMs great 
attention is drawn to the fact that programming is carried out by means of TTL 
level pulses - no need to pulse that nasty old Vpp high voltage line. (In the 
bad old days this was quite normal, our geriatric Interak clientele will 
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remember the Kemitron EPROMs type 52045 (0.5K!) which had to be programmed 
with a pulsed -50 Volt supply, as used by Baron Frankenstein for the 
manufacture of similar monsters to our early systems.) But the data sheets go 
strangely silent on this point when we get to the latest 27512 EPROMs. 
Because of the great shortage of pins in the 28 pin package for this capacity 
of memory device, Vpp is to be found on the same pin as the output enable 
line. To read the device, even for verification during programming, the output 
enable line must be brought low, but it has to be back up at Vpp before 
another programming pulse can be applied. The needle of a voltmeter connected 
to that line would move faster than a fiddler's elbow, and if this voltage was 
connected via relays the resulting death rattle during programming would scare 
the wits out of even Baron F. I have seen one or two designs which did make 
the Vpp connection in this way, yet claimed to be able to program 275125, but 
I can t poke too much fun at them, my Mk 1 design did exactly the same until I 
realised what a clanger I'd dropped - at least nobody else got to hear about 
it except you, and you deserve a laugh as a reward for reading this far. 

Anyway, I've probably said enough to indicate that it is an extreme test of 
mental stability to undertake the design of a universal EPROM programmer, and 
of course the software to drive it. I have undertaken both and now have to 
move on quickly before the nice men with the white coats in the van with 
leather windows come to take me home. 

Chasing pulses voltages and universal algorithms around a 2B-pin socket whilst 
everything was happening at once soon proved to be no fun at all so I devised 
a simple piece of test apparatus to make the job much easier for me. It 
helped me so much I at first thought I would keep the idea as a trade secret, 
but hearing that many of you are conducting experiments along similar lines, I 
decided to share my genius with the rest of you, to save you time and trouble 
too. 

What is this world shattering invention? I am sorry for the anti-climax but 
all it is is a set of LEDs (light emitting diodes) connected to each signal 
line on a 28-pin header which plugs into the socket of the EPROM programmer. 
Much careful work has to be done in the software design to ensure correct 
operation and avoid damage. It is a computer programmer's dream, because 
everything depends on everything else and what has gone before. Vpp must never 
be applied if Vcc is absent, there must be a specified delay after address and 
data set up before programming, and after programming and before verification, 
and so on and so on. I had the great joy with one of my experiments in 
successfully programming a handful of EPROMs supplied to customers who had 
returned them as being "defective - unable to program"! on their poxy machines 
may be, not on my Super Whizzo! And how did I do it? with my little LEDs. 

The accompanying diagrams give the circuit, which is very simple. To make it 
look more complicated than in fact it is, green LEDs have been used for the 
data lines, red for the rest, but you can use any colours you fancy. LEDs are 
diodes and conduct current very freely in the forward biased direction, like 
any diode, and so need resistors to limit this current to a safe value. A 
value of Ik in series with a red LED gives a clear illumination when logic 
levels are applied but keeps current to less than 25 mA even if a Vpp 
(programming voltage) of 25 Volts is applied. Vpp can be applied to 3 pins on 
this header, pins 1, 22, 23, and in these positions the "Ik" comprises a pair 
of 2k2 resistors wired in parallel. This is because the power dissipated in 
the resistors when 25 volts is applied is around 0.5 Watts, which of course is 
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too much for a single 0.25 Watt resistor (0.25 Watt resistors have to be used 
in my design because space on the 28*pin header is so cramped). There is no 
such restriction on the eight green LEDs connected to the data signals, and 
470 ohm resistors have been used here because green LEDs typically require 
smaller resistors than would be used for red LEDs to achieve the same 
brilliance. 

In use the control program is taken slowly through its paces, and the 
operation of the LEDs observed at each stage. It is easy to confirm that the 
socket is "dead" because all the lights are off, and very quick and easy to 
trace the power up sequence (if any) when Vcc and Vpp are applied and then 
raised to higher voltages during the programming phase, because of course the 
higher voltage makes the LED glow more brightly. The various modes of 
operation during programming involve different logic levels on various pins 
(chip enable, output enable, the PGM line, etc.) and these can be seen clearly 
on the appropriate LEDs. Even when the program is run in real time the LEDs 
can provide information, for example those who know their binary counting 
sequences can see them ascending on the address line LEDs as "programming" 
proceeds. Once the program has been checked with the dummy EPROM, ie the 
arrangement of LEDs described, and some pulsewidth measurements taken of the 
critical timing pin(8) it is fairly safe to plug in a real EPROM and watch it 
burn! 

Construction is easier to execute than to describe. I used a small piece of 
Veroboard with copper strips, and cut grooves across each track with a scalpel 
wherever I wanted to break the connection. The LEDs I used were the smallest 
I had (3 mm) so I had to file them down so that they could be stacked on 0.1" 
centres. The anode (long) lead of each LED was stiff enough and long enough 
to make each lead of the finished dummy EPROM, the resistors were all soldered 
by one end in position on the board, in series with the cathode (short) lead 
of the appropriate LEDs, and all the free ends gathered together and connected 
in common to pin 14 of the finished job, the 0V pin, see sketch. 

The building of the full "PGM-1" design in its present form is only 
recommended to advanced constructors, as it is so full of rubbish (for the 
reasons already discussed at length) that it takes a couple of DIP-l boards 
mounted piggy-back fashion to accommodate it in its entirety. However anyone 
who wants it can have a copy of the circuit diagram for some charge (probably 
couple of pounds - apply to Greenbank Electronics). Software to drive the 
board is only half baked at the time of writing but can be supplied on an 
Interak standard 3,5" disk to run under CP/M as a ".COM" file; (price and 
specification of software to be determined). 

Needless to say a printed circuit board is to be laid out for the PGM-l 
design, but it is going to be a real squeeze to fit it on one board, but we'll 
try. 
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CIRCUIT FOR THE EPROM PROGRAMMER TEST AID 
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INTERAK FLYER 
BY MAX XOTTRELL 
FOR 2YBASIC 

This is rather a fascinating game of co-ordination at the controls of a flying 
Interaki Try to land the computer safely on the airport landing stripi 

The screen display is made up of a window to look through, and an Instrument 
panel. As you fly onwards, "clouds" are seen at the lower part of the window. 
At lower altitude the "clouds" rise to reveal "ground" as the computer 
descends. Lower still, a hole appears in the ground and then the extreems of 
the landing strip are widened and deepened. The bearing keys will move the 
strip left or right for final approach. If all goes well you will make it 
down in one piece. 

Other effects are t- 

Screen flashes if too close to mountains. Low fuel, mountains and stall 
warning. Wheels down, power control and air brakes. 

Stall speed is less than 100 KMPH, landing speed is less than 250 KMPH. Low 
fuel is less than 30. Altitude overshoot feel is incorporated. 

* Use CTRL key for in listing to insert graphics codes. * 

» I.E. ^0 means press CTRL and 0 key together. # 

8 CLSiLINE 1 

9 DOFF 

10 P." INTERAK FLYER" 

15 P. "^0^0^0"‘0'^0^0^0"‘0^0^0^0^0^0''0^0^0^0''0^0^0^0^0^0^0"‘0'"O^O^O^D^O'‘0^0" 

16 P. 

20 P.". CONTROLS -" 

25 P." ^YAyAyAYAYAyAYAYAyii 

26 P. 

30 P."'B' AIR BRAKES'>'UNDER CAR.DOWN" 

40 P." 'S' SLOWER 'F' FASTER 

50 P." '8'(UP) 

55 P. 

60 P.-MLEFT) '4' '6'(RIGHT) 

70 P." '2' (DOWN) " 

75 P."LAST KEY HAS PRECIDANCE, " 

76 P."SPACE BAR CANCELLS LAST KEY." 

80 P."PRESS ANY KEY TO CONTINUE" 

140 INK.J 

141 IF J»0G.140 

142 CLS 

150 C$a"^X''0''0^0^0 ^O^O^O^O'^O ^O^O^O^O-^O'^X 

^X'^0''0^0^N^0^O^0''0^0^0''0''0^O^0^D^O^O''D^O''0''O^O''O''0^0^0^0'"0^X" 

160 D$""’'Xxxxxxxxxxxxxxxxxxxxxxxxxxxx''X" 

170 D2»RND(6)+2?IF((D2*3)+(D2=5)+(D2=7))G0T0 173 

172 W=1;G0T0 174 

173 W»-l 

174 U»="UP"iB«0iD2=D2#W»501+27iPRINT D2iZ$="0FF" 

180 F1=700:T1=5:A1=T1#50:D1=(INT(RND(3)#100)+300)*100 
190 H1»INT(RND(5)»750)+1300:C=0;Z»0 
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200 ...... 

205 Y$-" 

215 PAGE iLINE li 

219 Yt«“-^X a)(h 

220 FDR A=1T0 10:P.Y»iNEXTA 

225 LINE 12s Pi '*'*‘Q'^Y'^Y^Y''Y''Y''Y^Y'^Y‘^Y''Y‘^Y^Y''Y''Y''Y‘^Y^Y''Y''Y''Y‘^Y''Y'^Y''Y''Y‘^Y‘^Y''Y''P" 

230 P.A$iP."SPEED”,Al,"DISTANCE",D1 

235 P.A»iP."WHEELS",,,Ut,,,"BEARING ",D2 

240 P.AllP."POWER",T1,"ALTITUDE",H1 

242 P.AIiP."FUEL",Fl," AIR BRAKES ",ZI 

250 PRINTAI 

270 P."^0 AQM, 

^1*'"° ^0"iPRINT AliRETURN 

275 275 

281 ! CONTINUE 

290 LINE 15 , 

300 P.TAB<5),A1,TAB(20),D1 . 

310 LINE 17 

320 P.TAB(7),UI,TAB(20),D2 
330 LINE 19 

340 P.TAB(5)T1,TAB(201H1 
350 LINE 21 

360 P.TAB(5),F1,TAB{23),ZI 
365 LINE 1 
372 LINE liRETURN 
400 6DSUB 215 

450 INK.TiIF T <>0 POKE (£9000),TiZI = "OFF"iIF HI <1000 GOTO 501 
455 GOTO 503 

501 IF PEEK(£9000)«£2E LET UI>»"LO" i Z«Z+5i A1»A1-3 

503 IFDO0 LET Al»AUBil0iB«0 

504 IF PEEK(£9000) a£46 GOTO 506 

505 GOTO 507 

506 IF F1>0 LET T1=T1+1iA1«A1+301B=1iIFAl>500 LET Al«AI-30i GOTO560 

507 IF PEEK(£9000)«£53 GOTO 510 

508 GOTO 515 

510 IF F1>0 LET Tl=*Tl-liAl«Al-30iBa“liIFA1<100 LET A1“A1+301GOTO560 
515 IF PEEK(£9000 )b£ 42 LET Al»Al-3iZI«"ON"iQOTO 560 
520 IF PEEK(£9000)=£38 LETA1=A1-9.8iC=C+1iD1*D1-(A1*50/60)iGOTO570 
530 IF PEEK(£9000)=£32 LET A1=A1+9.BiC=C-1iD1=D1-(Al»50/60)iGOTO570 
540 IF PEEK(£9000)= £34 LETD1=D1"(A1*0.5)iD2=D2-(A1*0.1)iGOTO570 
550 IF PEEK(£9000)=£36 LET D1»D1-(A1*0.5)iD2=D2+(Al*0,1)iQOTO570 
560 Dl=Ol~(Al*50/60) 

570 IFT1>10 LET Tl=10 
572 IFT1<0 LET Al=Al-5iTl=0 

575 F1“F1-(T1*1.5)iH1=H1+(9.B*C*(A1/250))iIFA1>500 LET A1 «A1-10 

577 IFF1<0 let F1«0 

578 IFH1<0 LET H1=0 
580 IFO0 LET C = C-0.5 
582 IFC<0 LET C=C+0.5 

584 IFA1>T1*50 LET A1=A1-(A1*0.005) 

595 Dl=INT(Dl/10)*10iD2=INT(D2)iFl=INT(Fl)iAl=INT(Al) sH1=INT(H1) 

596 GOSUB 225 

597 IFF1<=30 GOSUB1000 

598 IF D1 <2000 GOTO 600 
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599 GOTO 603 

600 IF D2 >100 GOSUB 1100 

601 IF D2 <-100 GOSUB 1100 
603 IFA 1<100 GaSUB1200 

605 IFH1<1000 GOSUB13001GOTO615 
610 FORAbITO 3:LINE 22iP.'’^ 0 
p. »^0 

615 GOSUB 4000 

616 IF D1<0 GOTO 619 

617 GOTO 680 

619 IF Hl> 0 GOTO 621 

620 GOTO 680 


^0''iNEXT A 


AQM, 


621 IF ABS(D2) <100 GOTO 
680 GOTO 450 
1000 FOR E=I TO 6 
1010 FOR E=1 TO 6 
1020 LINE 22!P." 

1030 LINE 23:P." 

NEXT E:2*Z-5 


5400 


PUEL'',,,,,,,,,,,,,,,,,,-^0"iFOR AbI to 40iNEXT A 
,,,,,,,,,,, POP p.i TO 40,next A! 


1040 IF F1<0 LET T1b0 
1050 LINE 1:RETURN 
1100 IF D1<b0 goto 5300 
1110 LINE3iP.C$ 

1120 FOR F=1 T06i B=1 
1130 LINE 22IP.-0", 

1140 LINE 231P.-0-, 

NEXT AiNEXT FsZb2-10 

1150 RETURN 

1200 FOR G=1T06 

1220 LINE22iP,"'^0",TAB(21)’' 

1230 LINE 23iP.'*^0",TABI21)" 

1240 H1bH1-35{T1=0:A1bA1+28iIF 

1250 RETURN 


AINS",,,ffM''''0«FOR A»1T0 40iNEXT A 
AIN8\,,,,,,"^0 jF0R a «1 TO 40j 


TALL'^OMFOR A»lTO40iNEXT A 
STALL'*‘0''iFOR A-l TO 40iNEXT A: NEXT G:2»Z-10 
H1 <b0 6OTO5200 


1300 Jb£F0E0iIF D1>»10000 GOTO1400 
1315 IF ABS(D2) >100 GOTO 1500 

1320 IF D1>b8000 G0T01326 

1321 GOTO 1330 

1326 IF ABS(D2) <=100 GOTO 1600 

1330 iFDl>s5000 GOTO 1336 

1331 GOTO 1340 

1336 IF ABS(D2) <=100 GOTD1700 

1340 IF Dl>=3000 GOTO 1346 

1341 GOTO 1350 


1346 IF ABS(D2)<=100 GOTO 1600 

1350 IFD1>1000 GOTO 1356 

1351 GOTO 1360 

1356 IF ABS(D2)<=100 GOTO1900 

1360 IF Dl<=1000 GOTO 1370 

1370 IF ABS(D2)<»100 GOTO 2000 

1400 LINE S:FOR A=1 TO 4i P.BfiNEXT A 

1410 IF HI <=0 G. 5000 

1420 GOTO3000 

1500 LINE 3:P.CIi 

1520 GOTO 3000 

1600 2 = 24-5 
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1628 

1630 

1700 

1720 

POKEi 

1730 

1800 

1820 


J=J-(INT(D2/15)):LINEfl*P.B$*POKE(J+15),£20jIF H1<=0 GOTO 5000 

GOTO 3000 
Z = 2 + 5 

J=J-(INT(D2/15))iLINE8!P.B$iP0KE(J+14),£2F*P0KE(J+15),£20: 
(J+16),£5C!IF H1<=0 GOTO5000 
GOTO3000 

K«14 TO 16: 

POKE(J+K),£20:NEXT K:POKE(J*17>i£5C 
1830 IF Hl<a0 GOTO5860 - 
1840 GOTD3000 
1900 Z=Z+10 

K»13 TO 17: 

POKE (J+K),£201 NEXT K:PDKE(J + 15),£18iPOKE(J + 18),£5C 

50:POKE(J+K) ,£20iNEXTKi 

P0KE(J+51),£5CiP0KE(J+47),£18 ^ ; 

1940 IF Hl<a0 GOTO 5060 
1950 GOTO3000 
2000 Z=Z+15 

K-11 TO 19i 

POKE(J+K),£20:NEXT K:POKE(J+15),£18:POKE(J+20),£5C 
pSK^JM^r.^lsIpOKEU^^^^ 52:POKE(J+K),£20:NEXT K: 

2041 LINE10:P.BI 

2050 POKE (J + 72),£2F:F0R K»73 TO 85lPOKE(J+K),£20:NEXT K: 

P0KE(J+79),£1B:P0KE(J+86),£5C:IF H1<«0 GOTO 5060 
3000 RETURN 


4000 H5b0: if HI>900 

4001 if H1>1000 let 

4002 IF Hl>1100 LET 

4003 IF Hl>1200 LET 

4004 IF Hl>1300 LET 

4005 IF Hl>1400 LET 

4006 IF Hl>1500 LET 

4007 IF Hl>1600 LET 

4008 IF H1>17B0 LET 

4027 LINE (2+H5) 

4028 D$ = "’^X^A''A^A"'A'' 

4029 E*=“^X 

4030 F$«’'^X 
4040 H=RND(3) 

4045 G=INT(RND(6)«10 

4050 IF H*1P.DI 

4051 IFH=«2P.E$ 

4052 IF Hs3P.F$ 


LET H5al 

H5a2 

H5a3 

H5«4 

H5 = 5 

H5a6 

H5a7 

H5a8 

H5a9 

A^DAqajjadadajiaq 

^A^A^A^'O^D' 

ADAAA^A0AQ, 


■D^'D 


F 

‘X" 

•X" 


‘X“ 


iFOR Sal TO G:NEXT S 


4053 IF H5<a8 P.Y* 

4054 IF H5<a6 P.Y$ 

4055 IF H5<=6 P.B$ 

4070 LINEl 

4080 RETURN 

5000 FOR Aal TO 1800JNEXT A:P."^0" 

5020 PAGE :CLS:P.*'YQU CRASH LANDED AT'*, A1, "KMH": Z=Z-70 
5030 P.01,"METRES FROM THE AIRPORT" 

5040 P.D2,"METRES OFF COURSE." 

5042 P."THE PLANE IS A WRITE OFF" 
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5045 IF U$<>"UP''GOTO5047 

5046 GOTO 5050 

5047 IF ftl<200 P. INT(RND(2)*10)/'PEOPLE WERE INJURED":GOTO 6000 

5050 IFU$<>"L0" GOTO 5053 

5051 IF A1 >200 GOTO 5053 

5052 GOTO5060 

5053 P." THERE WERE NO SURVIVORS":Z»Z-100iGOTa 6000 
5060 FOR A=1 TO 1000:NEXT Ai P."^\" 

5070 CLSiIF ABS(D21<20 P."YOU LANDED ON THE RUNWAY",D2,"METRES" 

5075 IF ABS(D2)<20 P."OFF CENTER ,D1,"METRES FROM"iZ»Z+30 
5080 IF ABS(D2)>20 P."YOU JUST MISSED THE RUNWAY,YOU" 

5085 IF ABS(D2)>20 P.D2,"METRES OFF CENTER «t" ,D1, "METRES" 

5087 IF ABS(D2)>20 P."FROM THE"iZ«Z+10 - 
5090 P."AIRPORT.YOU LANDED AT",A1,"KMH" 

5100 IF U»<>"La" P."YOUR UNDER CARRIAGE WAS NOT DOWN" 

5105 IF U$<>"LO" P."THE PLANE WAS A WRITE OFF":2«Z-50 
5110 IF A1<2S0 GOTO6000 

5120 D»INT((Al-250)/20):FOR E = 1 TO D: F=>INT (RND (3) *10) 

5130 IF F»7 P."YOUR LANDING SPEED WAS TO GREAT" 

5140 IF F»7 P."THE PLANE BROKE UP"iZ»Z-80iGOTO6000 
5150 6OTO6000 

5200 P."^aYaUR PLANE STALLED & CRASHED " 

5210 P."ON ITS NOSE,NO SURVIVORS 

5220 P,"^DYOU WERE",D2,"METRES OFF COURSE" 

5230 P."^OAND",Dl,"METRES.FROM THE AIRPORT"i2=Z-150iGOTO6000 
5300 PAGEtCLSiP.'"'OYOU SMASHED INTO A MOUNTAIN ":P."AT",Al,"KMH."iZ-2-200 
5320 P.-'-^OYOU WERE",D2,"METRES OFF": P. "COURSE." iGOTO 6000 
5400 PAGEtCLSiP. ""'OYOU FLEW OVER THE AIRPORT "iZ = 2-60 

6000 P. "******************»**#***#»*##'« 

6001 P."***»***##**»****t»**»»##***»*»« 

6060 Z = Z + INT( (200/(ABS(Dl)+!)) + (150/(ABS(D2)+2)) + (Fl/l5)+ (30-(Hl/150))) 

6065 IF Z<0 LET Z«0 

6070 P."YOU SCORED",!,"POINTS.":IF Z>Q LET Q=Z 
6075 P."HI-SCOREi",Q 

6077 P."DO YOU WANT ANOTHER GO?" 

6078 INK.J 

6079 IF J=£59 G. 8 

6080 IF J«£4E GOTO 7000 
6090 GOTO 6078 

7000 STOP 
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CONVERSION TABLES 

s 


Centimeters Inches 

Inches 

(cm) 

(in) 

(in) 

1 .... 

0.394 

1 .. 

2 .... 

0.787 

2 .. 

3 .... 

1.181 

3 .. 

4 .... 

1.575 

4 .. 

5 .... 

1.969 

5 .. 

6 .... 

2.362 

6 .. 

7 .... 

2.756 

7 .. 

8 .... 

3.15 

8 .. 

9 .... 

3.543 

9 . . 

10 .... 

3.937 

10 .. 

20 .... 

7.874 

20 .. 

30 .... 

11.811 

30 .. 

40 .... 

15.748 

40 .. 

50 .... 

19.685 

50 .. 


Ki1ograms 

Pounds 

Pounds 

(kg) 

(lb) 

(lb) 

1 .... 

2.205 

1 ... 

2 .... 

4.409 

2 ... 

3 .... 

6.614 

3 ... 

4 .... 

8.819 

4 ... 

5 .... 

11.023 

. 5 ... 

6 .... 

13.228 

6 ... 

7 .... 

15.432 

7 ... 

8 .... 

17.637 

8 ... 

9 .... 

19.842 

9 ... 

10 .... 

22.046 

10 ... 

20 .... 

44.092 

20 ... 

30 .... 

66.139 

30 ... 

40 .... 

88.185 

40 ... 

50 ... 

110.231 

50 ... 


Kilometers Miles 

Mi 1 es 

(km) 

(mi) 

(mi) 

1 _ 

0.621 ' 

1 ... 

2 .... 

1.243 

2 ... 

3 .... 

1.864 

3 ... 

4 . . . . 

2.485 

4 ... 

5 .... 

3.107 

5 ... 

6 .... 

3.728 

6 ... 

7 .... 

4.350 

7 ... 

8 .... 

4.971 

. 8 ... 

9 .. .. 

5.592 

9 ... 

10 .... 

6.214 

10 ... 

20 .... 

12.427 

20 ... 

30 .... 

18.641 

30 ... 

40 .... 

24.855 

40 ... 

50 ... 

31.069 

50 ... 


Centimeters Centegrade Farenhight 


(cm) •. (C) : (F) 

2.54, -G ....... 32 

5.08 5 . 40 

7.62 ' 10 . 50 

10.16 15. 60 

12. 7 20 .. 70 

15.24 . 25,. 75 

17.78 30 .. 95 

20.32 35 .. 95 

22.86 . 40 . 105 

25.4 ,. 60 . 140 

50.8 ... 80 . 175 

76.2. 100 212 

101.6- 

127.0 

Kilograms Km/h Mph 

■ 

0.454 32 . 20 

0.907 48 . 30 

1.361 64 . 40 

1.814 80 50 

2.268 96 , 60 

2.722 1 12 . 70 

3.175 128 80 

3.629 144 90 

4.082 160 100 

4.536 

9.072 

13.608 

18.144 

22.68 


Kilometers kg/sq cm Ib/sq in 

(km) 

1.609 1.41 20 

3.219 1.55 22 

4.828 1.69 24 

6. 437 1.83 26 

B.047 1,97 28 

9.656 2.11 30 

1 1.265 2.25 32 

12.875 2.39 34 


14.484 

16.093 

32.187 

48.28 

64.374 

80.467 
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Tonnes 

UK tons 

UK tone 

Tonnes 

(t) 

(T) 

(T) 

it) 

1 .... 

0.984 

1 .... 

1.016 

2 .... 

1.968 

2 .... 

2.032 

3 .... 

2.953 

3 .... 

3.048 

4 .... 

3.937 

4 .... 

4.064 

5 .... 

4.921 

5 .... 

5.08 

6 .... 

5.905 

6 .... 

6.096 

7 .... 

6.889 

7 .... 

7.112 

8 .... 

7.874 

8 .... 

8.128 

9 .... 

8.858 

9 .... 

9.144 

10 .... 

9.842 

10 .... 

10.161 

20 .... 

19.684 

20 .... 

20.321 

30 .... 

29.526 

30 .... 

30.481 

40 .... 

39.368 

40 .... 

40.642 

50 .... 

49.21 

50 .... 

50.802 


Hectares 

Acres 

Acres 

Hectares 

(ha) 

(acres) 

(acres) 

(ha) 

1 .... 

2.471 

1 .... 

0.405 

2 .... 

4.942 

2 .... 

0.809 

3 _ 

7.413 

3 .... 

1.214 

4 .... 

9.884 

4 .... 

1.619 

5 . . . . 

12.355 

5 .... 

2.023 

6 .... 

14.826 

6 .... 

2.428 

7 .... 

17.297 

7 .... 

2.833 

8 . .. . 

19.769 

8 .... 

3.237 

9 .... 

22.24 

9 .... 

3.642 

10 .... 

24.711 

10 .... 

4.047 

20 .... 

49.421 

20 .... 

8.094 

30 .... 

74.132 

30 .... 

12.14 

40 . . . , 

98.842 

40 .... 

16.187 

50 ... 

123.553 

50 .... 

20.234 


Paper 

(Ax) 

Mi 1imeters 


Inches 

A0 .. 

841 X 

1189 

• e 

33.1 

X 

46.8 

A1 .. 

594 X 

841' 

t a 

23.4 

X 

33.1 

A2 .. 

420 X 

594 

• • 

16.5 

X 

23.4 

A3 . . 

297 X 

420 

a a 

11.7 

X 

16.5 

A4 .. 

210 X 

297 

a a 

8.3 

X 

11.7 

A5 .. 

148 X 

210 

a a 

5.8 

X 

8.3 

A6 .. 

105 X 

148 

a a 

4. 1 

X 

5.8 

A7 .. 

74 X 

105 

a a 

2.9 

X 

4.1 

(Note: 

- The 

1ength 

becomes 

the 


width at 

each step 

up) 


Men's Suits and Coats 


British 

Amerlean 

Continental 

36 .. 

... 36 ... 

_ 46 

38 .. 

... 38 ... 

.... 48 

40 .. 

... 40 ... 

.... 50 

42 .. 

... 42 ... 

.... 52 

44 . . 

... 44 ... 

- 54 

46 .. 


. . . . RA 

48 ,. 

... 48 ... 

.... 58 


Men's Shirts 

British 

American 

Continental 

14 

... 14 

... 36 

14.5 . 

... 14,5 . 

... 37 

15 

... 15 . 

... 38 

15.5 . 

aaa 15a5 a 

... 39/40 

16 

... 16 I 

... 41 

16.5 . 

... 16.5 . 

... 42 

17 

...17 

... 43 


hen's Shoes 

British American Continental 


Litres 

Gallons 

Gal ons 

Litres 

(1) 

(gals) 

(gals) 

(1) 

1 .... 

0.22 

1 .... 

4.546 

2_ 

0.44 

2 .... 

9.092 

3..... 

0.66 

3 .... 

13.638 

4 .... 

0.88 

4 .... 

18.184 

5 .... 

1.1 

5 .... 

22.355 

6 .... 

1.32 

6 .... 

27.276 

7 .... 

1.54 

7 .... 

31.822 

8 .... 

1.76 

8 .... 

36.368 

9 .... 

1.98 

9 .... 

40.914 

10 .... 

2.2 

10 .... 

45.460 

20 .... 

4.399 

20 .... 

90.919 

30 .... 

6.599 

30 .... 

136.379 

40 .... 

8. 799 

40 .... 

181.839 

50 ... 

10.998 

50 .... 

227.298 


7 •••• 8 tilt* 41 

7»5 iitt 8i5 42 

8.5 - 9.5 . 43 

9.5 lit. 10.5 . 44 

10.5 .... 11.5 >.... 45 
11 - 12 46 

Men's Socks 

British American Continental 

9.5 .... 9.5 ..... 39 

10 - 10 40 

10.5 .... 10.5 ..... 41 

11 .... 11 ..... 42 

11.5 .... 11.5 . 43 

12 .... 12 44 
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BIORYTHMS 
BY MEL SAUNDERS 
FOR 64-COL XTAL BASIC 

10 CLS:IOM4,0jIOM5,0jFMT0,0 
30 PRINTB$]PRINT:PRINT 

40 PRINT" What are BIORYTHMS it's a new science concerned with life., 
cycles,and how from birth we move thro'periods " 

50 PRINT:PRINT'' of High peaks of feeling good., thinking good,to troughs of 
doubts and fatigue and even"; 

60 PRINT" our emotional state is on the change constantly" 

70 PRINTiPRINT" ENTER DATES AS REQUESTED THE GRAPH WILL DISPLAY THE AVERAGE 
BIORYTHM FOR THE DATE"; 

00 PRINT" ENTERED AND THE NEXT 31 DAYS" 

90 PRINT@3,20,"PLEASE ENTER NAME AND RETURN (press any key to repeat!)" 

95 PRINT@3,22,!INPUT"NAME PLEASE ";NI 
100 CLS 

110 PRINTiPRINTBliPRINT 
120 PRINT@0,4," 

130 PRINT@0,4,iINPUT"DATE OF BIRTH ";FD 
140 PRINT@14,4,'' 

150 PRINT@0,4,IINPUT"MONTH OF BIRTH ";FM 
160 PRINTei4,4,'‘ 

170 PRINT@0,4,tINPUT"YEAR OF BIRTH ";FY 
180 PR1NT@14,4," 

190 PRINT940,4,"BORN ON- ";FD;"/";FM;"/";FY 
200 PRINT@0,4,:INPUT"TODAYS DATE ";BD 
210 PRINT@11,4," 

220 PRINT@0,4,:INPUT"HHiCH MONTH ";BM 
230 PRINT@11,4," 

240 PRINT@0,4,: INPUT'*WHiCH YEAR ";BY 
250 PRINT@0,4," 

255 N$ = "** BIORYTHM FOR ■"+N$ + " #*" 

260 PRINT@5,4;N$ 

270 PRINTe40,6,"BIO-DAY? ";BD;"/";BM;"/";BY 

273 REMjROUGHLY CALCULATE 

274 REMiDAYS OF LIFE 

275 PRINTe40,9,"DAYS OF LIFE- "I NT(365.25*(BY-FY) + (30»(BM-FM) + (BD-FD))) 

280 S=0 

290 D=FD!M=FM:Y=FY 
300 GOSUB 570 
305 AD=-X 
310 forz=fy to by 

320 IF Z/4-INT(Z/4)=0 AND Z/100-1 NT (Z /100) <>0 AND FYOBY THEN S=S + 1 
330 NEXTZ 

340 AD»AD+S+365*(BY-FY) 

350 D=BD:H=BM:Y=BY 
360 GOSUB 570 

365 AD“AD + X+(M>2 AND Y/4-1 NT (Y/4)=0 AND Y/100-1 NT(Y/100)<>0) 

370 GOSUB 730 
390 FMT2,2 

400 PRINT@3,6,"PHYSICAL";TAB(30,46)(99*A + . 5) 

410 PRINTe3,7, "EMOTIONAL"I TAB(30)(99*B + .5) 

420 PRINT@3,8,"INTELLECTUAL";TAB(30)(99*C+.5) 

430 PRINT@3,9,"AVERAGE";TAB(30)(99*D+.5) 
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440 F0RP»3T0 24STEP2 
450 SET0,P 
460 NEXTP 

470 FORP=0TOi27 STEP2 
480 SETP,13 
490 NEXTP 

500 FORGbADTO AD+30 
510 GOSUB 740 

515 SET4*{G-AD)+2, INT(10»D+.5)+.ll 
520 SET4»(G-AD)+1,INT(10*D+.5)+ll 
525 SET4»(Q-AD),LNT110*D+.5)+ll 
530. NEXTG . 

540 PRINT@1,12,"G00D DAYS'* i PRINT@1,22/'BAD DAYS" 

550 A$»INCH$:IFA*-"" THEN 550 
560 RUN . . 

570 X=D 

580 IF M=2 THEN X=31+X 
590 IF M=3 THEN X=59+X 
600 IF M = 4 THEN X=>90 + X 
610 IF M=4 THEN X-120+X 
620 IF M=5 THEN X=151+X 
630 IF M = 6 THEN X*«181 + X 
640 IF M=5 THEN X=120+X 
650 IF M»6 THEN X«151+X 
660 IF M«7 THEN X»101+X 
670 IF M*8 THEN X«213+X 
680 IF M=9 THEN X=242+X 
690 IF M=10 THEN X=273+X 
700 IF M=ll THEN X=303*X 
710 IF M=12 THEN X»334+X 
720 RETURN 
730 G=AD 

740 A = SIN(2*PI*G/23)ifi = SIN(2*PUG/28) *C=SIN(2*PI»G/33) 
750 D«(A+B+C)/3 
760 RETURN 
765 REM 

770 REM ***»»###♦♦#**♦##»♦** 

775 REM * BIORYTHMS BY * 

780 REM * MEL SAUNDERS 4/04# 

790 REM f#*##*##**#*######## 
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sasns ssaas 


BULLETIN BOARD DATA 
aaaoBaaBaaBBaaaaaaaaaaaaBaaaaaaaaaaraaaaaaaaB 


—SBaSBSBaaBBSBBBSBSBBBBaa 


TOMS BULLETIN BOARD 


Access ! Free 

On-line times i 1900 to 0700 mon-sat and all day Sunday. 
Transmission i 300 Baud| 2 Stop bits no parity. 

Data line : 01-573-8822 

Speech line i 01-561-2639 for help and advice 
Sysop j Tom Evans 

Address i 129 Cranborne Waye, Hayes, Middleswx. 

Post code t UB4 OHR 



FLASH GORDON'S BULLETIN BOARD 


Access 
On-line times ] 
Transmission : 
Data line i 
Speech line i 
Sysops 
Address 
Post code 


» Free 

2300 to 0700 daily. 

300 Baud, 2 Stop bits no 
0246-410873 


} Flash Gordon, Dale Arden 
: The Planet Mars, C/0 229 
I S18 6ER. 


parity. 


and Professor Zarkov. 
Stonelow Road, Dronfield, 


Derbyshire, 



MS«M ELECTRONICS 

Bulletin board Software and services to the Interak computer. 
M M Electronics, 8 Ayre View, Bride, Isle of man. 
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SDUND-D 

FOR XTAL BASIC 
BY MEL SAUNDERS 

20 Alls'"' 

30 AY-3-8910 regISTERS'^''''^''''''''’''''^'^'''''''^'^'^''''^'^'^'^'^" 

40 C|s"‘'''^'^'V'>»'V'»-'vvv<v«w«\,»w^v'vv*v*i,VQ|_gQ|^g yg-vv-w v'v<v^*w<w-w-v'v^*w«w«w<v'i, vvmj 

50 DI=MULI(" ",255) 

60 ABI=MULI("" ,33) iA2l = l1ULI(" ",36) 

70 DIMS(20),T<20) 

80 GOTO130 

90 PRINTSIS,23,"press SPACE to continue 
100 A=INCH:IF A<>S(20 THEN 90 
110 CLSiPRINTAlliPRINTAliPRINTAll 
120 RETURN 

130 CLSiPRINTiPRINTAll:PRINTA$*PRINTAl$ 

140 PRINTiPRINT:PRINT:PRINT 

150 PRINT"THIS PROGRAM WILL HELP YOU USE THE P.S.G CARD TO CREATE YOUR 
OWN SOUNDS AND ALSO UNDERSTAND THE WORKINGS OF- 
160 PRINT" THE AY-3-B910 CHIP AND THE INTERAK CARD "iPRINT 
170 PRINT" The AY-3-8910 chip has 16 Registers (mostly 8 bit) that have 
control over 3 sound channels, noise, envelope 
180 PRINT"time and shape,." 

190 PRINTiPRINT" There is also input/output by way o^ 
that can be very usefull for joystick use or even 
200 PRINT" ROBOT CONTROL!" 

210 GOSUB90 

220 PRINTiPRINTBtiPRINT 
230 PRINT" 


4 8-bit ports. 


240 PRINT" 
250 PRINT" 
260 PRINT" 
270 PRINT" 
280 PRINT" 
290 PRINT" 
300 PRINT" 


R-0 8-BIT FINE TUNE CHANNEL A"jPRINT 
R-1 4-BIT COARSE TUNE CHANNEL A"iPRINT 
R-2 8-BIT FINE TUNE CHANNEL B"iPRINT 
R-3 4-BIT COARSE TUNE CHANNEL B"iPRINT 
R-4 8-BIT FINE TUNE CHANNEL ClPRINT 
R-5 4-BIT COARSE TUNE CHANNEL C'lPRINT 
R-6 5-BIT NOISE TUNE CHANNEL"* PRINT 
R-7 ENABLE:note active low"iPRINT 


310 6OSUB90 
320 PR I NT:PR INTBI:PR I NT:PR I NT I PRINT 

330 PRINT" R-8 5-BIT CHANNEL A VOLUME":PRINT 

340 PRINT" R-9 5-BIT CHANNEL B VOLUME":PRINT 

350 PRINT" R-10 5-BIT CHANNEL C VOLUME"iPRINT 

360 PRINT" R-11 8-BIT FINE TUENE ENVELOPE":PRINT 

370 PRINT" R-12 8-BIT COARSE TUNE ENVELOPE":PRINT 

380 PRINT" R-13 4-BIT ENVELOPE SHAPE/CYCLE":PRINT 

390 PRINT" R-14/15 8-BIT I/O PORTS A AND B" 

400 GOSUB 90 

410 PRINT:PRINTiPRINT:PRINTCI:PRINT:PRINT 

420 PRINT"In most cases the frequency is obtained by firsty dividing 
the clock frequency by 16 then" 

430 PRINT:PRINT" by the value in the registerls) this value is a period 
value ie-the lower the value the higher the tone"j 
440 PRINT"..and vice-versa" 

450 PRINT:PRINT" IT IS POSSIBLE TO ADD A 74LS393 TO PROVIDE CLOCK FREQUENCYS 
0F 4MH2 TO 15.625KH2 ADWDIN6 A VERY"j 
460 PRINT" WIDE RANGE OF SOUNDS AND TONES":PRINT 
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470 PRINT" What is a short sharp crack at 4MH2 is a low long bong at 
250KHz the range is very wide almost endless" 

480 GOSUB 90 

490 PRINTiPRINTC$:PRINT 

500 PRINT " TPsfine tone period value CT=coarse tone period value" 

510 PRINT" Fclockssystem clock frequency FT-desired tone frBquency"jPRINTi 

PRINT" a bit of maths will help-" 

520 PRlNTiPRINT" ie.FT=lKHz Fclock=2MHz " 

530 PRINT:PRINT" 2MHz116 11000=125 TP.VALUE " 

540 PRINT" or 2MHz116 1125=1000 or IKHz" 

550 PRlNTiPRINT" A 4MH2 clock wlill produce a tone range of 60Hz to 250KHz 
while a IflHz clock would produce a tone range of"; 

560 PRINT" 15H2 to 62.5KHz" 

570 PRlNTiPRINT" BUT A 250KH2 clock gives you 3H2 to 15.5KHz... 

580 PRINT" and very long envelope times! taking many seconds (£upto 120+) 
for a sound to rise and fall" 

590 PRINTei5,23/'pres5 SPACE to continue "j 
600 A=INCH:IF AO&20 THEN 590 
610 CLSiPRINTAUiPRINTAiiPRINTAUiPRlNTiPRINT 
620 PRINT"N0W TO TRY A FEW SAMPLE SOUNDS" 

630 PRINT".....u 

iPRINT 

640 PRINT" EACH SAMPLE WILL DISPLAY THE REGISTERS USED AND THE VALUE.. 

CONTAINED IN THEM!" 

650 PRlNTiPRINT 

660 PRINT" 1-CREATE YOUR OWN SOUND 2-BOMB DROP" 

670 PRINT" 3-PROP PLAIN/TRAIN 4-CHIME" 

680 PRINT" 5-DRUM STROKES 6-DUAL SOUNDS (BOTH P.S.G's)" 

690 PRINT" 7-SEA WAVES 0-REVIEW INFORMATION " 

700 PRINT" 9-CALCULATE "iPRINT 

710 PRINT@5,20, " ENTER NUMBER OF CHOICE! " i:N$ = INCH$iON VAL (N*)GOSUB730, 
1800,1990^2120,2250,2370,2510,130,3100 
720 GOTO 610 
730 CLS 

740 PRINTA1IiPRINTA$!PRINTA1$ 

750 PRINT@3,6,"iENTER '0' TO RETURN:" 

760 PRINTe31,6,AB$iPRINTS31,10,AB$ 

770 PRINTe31,7,"" 

700 PRINTe31r,8,"" 

790 PRINT@31,9,"" 

800 PRINTe3,5, iINPUT" WHICH PSG 1 0R 2 "]PP 

810 IF PP=0 THEN 610 

820 IF PP<1 OR PP>2 THEN 800iPl=PP 

830 IF PP=1 THEN XX = 8(C0iIF PP=1 THEN YY = *(C11PSG» = "" 

840 IF PP=2 THEN PSG$="":IF PP=2 THEN 1030 
850 PRINT@26,6," "iPRINTfil4,7, " 

860 PRINTe3,7,iINPUT" WHICH REGIISTER (0-15) "jRR 

870 IF RR<0 OR RR>15 THEN 860 

880 RR=RR+1 

890 PRINT@1,12,D$ 

900 PRINTSl,15,D$:PRINTe0,18,PSG$ 

910 ON 7RR GOSUB2720,2740,2760,2780,2800,2820,2840,2860,2890,2910,2930, 
2950,2980,3010,3040,3070 
930 RR=RR-1 
940 OUTXX,RR:OUTYY,VV 
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950 PRINTS20^5," '':PRINTe26,7," “iPRINTil4,8," 

960 OUT ScC0,7:N = 0:PRINTe0,18,PSGI 
970 iaM4,0iIDM5,0 

980 FORRN=0TD4!OUTi<C0,RNiS(RN)=INP(SiCl)iPRINT§12»RN,20,'' REG "rRNi 
“^''SCRN)" "pNEXTRN 

990 N«0iFORRN»5TQ9iOUT!(C0,RNiS(RN)*INP(J«Cl)iPRINTfil2»N,21,'' REG "iRN: 
"*>"S(RN)'' *'pN«N + liNEXTRN 

1000 N=0jFORRNsl0TO13:OUTSiC0,RNsS(RN)aINP(«tCl):PRINT812#N,22," REG "jRNj 
'■ = "S(RN)" ";:N=N+1:NEXTRN 
1010 PRINTilB, 18," ''pFt = INCH$! IF FJ=''Y" THEN 1220 
1020 I0M4,1:10M5, liPRINTil7, IBiMULK" '',27)iG0T0 750 
1030 XX=«(C2!YY»&C3 

1040 PRINT@26,6," "iPRINTSl4,7," « 

1050 PRINT03,7,:INPUT" WHICH REGISTER (0-15) "jRR 

1060 IF RR<0 OR RR>15 THEN 860 

1070 RR*RR+1 

1080 PRINTei,12,D$ 

1090Z PRINTSl,15,D$:PRINTe0,18,PSGI 

1100 ON RR GOSUB2720,2740,2760,2780,2800,2820,2840,2860,2890,2910,2930, 
2950,2980,3010,3040,3070 
1110 PRINTe3,8,:INPUT" WHAT VALUE "jVV 
1120 RRsRR-l 
1130 OUTXX,RRiOUTYY,VV 

1140 PRINTe20,5,*' ''!PRINTe26,7,'' "*PRYINT014,8," 

1150 OUT l(C0,7;N*0jPRINTe0,18,PSGI 
1160 IOM4,0!lOM5,0 

1170 FORRN = 0TO4iDUT!tC2,RN:T(RN)»INP(S(C3)iPRINT«12*RoN,20,*' REG ":RN| 

" = n(RN)" "pNEXTRN 

1180 Na0jFORRN=5TO9jOUT&C2,RN:T(RN) = INP(«(C3):PRINTS12tN,21,‘' REG "jRNi 
’■«"T(RN)'* "jiN = N + li:NEXTRN 

1190 Ns0iFORRN»10TO13iOUT8(C2,RNiT(RN)»INP(&C3)tPRINT«12#N,22," REG "iRNi 
"="T(RN)“ "jiN=N+liNEXTRN 
1200 PRINTei8,18," " I iF$sINCH*i IF FI»"Y'' THEN 1220 
1210 I0M4,1 j I0M5,1 iPRINTfil7,18|MUL«(" '•,27 )jG 0T0 750 
1220 CLSiPRINTAI 
1230 B=5:A=48!iF PP=2 THEN A=58 

1240 PRINTei,3i"REG.TAB(12)"DESCRIPTION"jTAB(49)"PSG-l"|TAB(59)“PSG-2" 
1250 PRINTe0x,20}"CONTROLSi-'W'=UP. ‘Z'^DOWN. 'A'«PSQ-1. 'S'»PSB-2. 
'P'=PRINT IT." 


1260 PRINTe0,21;". 'E'*END. 'SPACE' TO ENTER VALUE." 

1270 PRINT@0,225" 'U'=RAISE VALUE BY 1. 'D'sLOWER VALUE BY 1." 


1280 RESTORE 1310 

1290 FORX=0TO13iPRINT@2,X+5|Xi 

1300 READDA$:PRINTTAB(10)DA$)TAB(50,46)S(X))TAB(60,46)T(X);*NEXTX 
1310 DATA"CH A FINE. 8 BITS","CH A COURSE. 4 BITS","CH B FINE. 8 BITS", 

"CH B COURSE. 4 BITS","CH C FINE. 8 BITS" 

1320 DATA"CH C COURSE. 4 BITS","NOISE TONE. 5 BITS","ENABLE 3-BIT^S SOUND. 

3-NOISE. 2-1/0","CH A AMP","CH B AMP" 

1330 DATA"CH C AMP","ENV PERIOD FINE. 8 BITS","ENV PERIOD COURSE. 8 BITS 
","ENV SHAPE. 4 BITS" 

1340 B=B+RR 

1350 PRINTiA,B)">"j 

1360 aQ$=INCH$ 

1370 RA=AiRB=B 

1380 IF QQ$="A"THEN A=48 
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1390 IF QQI»''Sr’'THEN A«58 
1400 IF QQ$»''W"THEN B-B-1 
1410 IF B<5 THEN B=5 
1420 IF QQ$ = ‘'Z"THEN B=B + 1 
1430 IF B>18 THEN B=18 
1440 IF QQIRs" " THEN GOTO 1530 
1450 IF Qa$ = ''P'' THEN 3580 
1460 IF Qa$ = '*E" THEN 1680 
1470 IF aa$="U" THEN GOTO 1620 
1480 IF X*="D" THBEN GOTO 1620 
1490 PRINTSRAjRBj" '■ 

1500 PRINT§A,Bi 
1510 GOTO 1360 
1520 REMiENTER VALUES 

1530 PRINT§A,BjiINPUTVViPRINT€A-l,B;" "l 

1540 PRINTSAjB) '■ "«PRlNTSAfl, B|VV| iPRINTtA,Bj"i 

1550 IF B<5 THEN B»5 

1560 IF B>18 THEN B-18 

1570 IF A = 48 THEN XX = J(C0i Yy«*(Cl 

1580 IF A»58 THEN XX»«(C2iYY«8eC3 

1590 0UTXX,B-5i0UTYY,VV 

1600 GOTO 1510 

1610 REMiALTER VALUES 

1620 VV«VAL(MID«(SCRN${B),A+2,3)) 

1630 IF X$»"U'' THEN VV»VV + 1 

1640 IF VV>255 THEN VV-255 

1650 IF X$«"D" THEN VV-VV-1 

1660 IF VV<1 THEN VV=1 

1670 GOTO 1540 

1680 IF PP*2 THEN 1740 

1690 CLS:OUT 8(C0,7* N»0i PR INTS0,18, PSG$ 

1710 FORRNs0TO4:OUT«(C0,RNjS(RN)sINP(fcCl) jPRINT«12*RN,20,'' REG '';RN| 

'* = "S(RN)'‘ ";iNEXTRN 

1720 N»0jFORRN*5TO9iOUT8(C0,RNiS(RN)*BINP(J(C1)jPRINT« 12*N,21," REG "iRNl 
'' = "S(RN)" "i:N=N + liNEXTRN 

1730 N=0iFORRN=10TO13tOUT!iC0,RN:S(RN)»INPl«iCl):PRINTI12#N,22,’' REG "(RNi 
‘'*‘'S(RN)" iN»N+l:NEXTRNiGOTO 1790 
1740 CLS:OUT «(C0,7 jN» 0jPRINTe0,18,PSG$ 

1750 1OM4,0!IOH5f0 

1760 FORRN = 0TO4iOUT*tC2,RN*T(RN)»INP(fcC3)iPRINT«12#RN,20,'' REG "iRN; 

" = "T(RN)'* "pNEXTRN 

1770 N = 0»FORRNs5TO9iOUTj(C2,RNjT<RN)sINP(fcC3)iPRINT§12#N,21 , ** REG “iRN; 

" = "T(RN)" '*;:N=N+1:NEXTRN 

1780 N»0:FORRNsl0TO13»OUT!(C2,RN:T(RN)«INPlSiC3)jPRINTei2tN,22,“ REG "jRNs 
'' = ’'T(RN)" ''jjNE»N + l:NEXTRN 
1790 PRINT§0,0|iGOTO 740 
1800 CLS:PRINTiPRINTA* 

1810 PRINTei5,4,"REGISTER"iPRINTe43,4,"DATA'’ 

1820 PRINTei5,5v,'''^'^'^'^'^'^'^'^''jPRINT943,5, 

1830 RESTORE 1880 

1840 FORX = 0TO13:READA 

1850 PRINT@ia,X+7,X:PRINTa4.3,X+7,A 

1860 OUTS(C0,XjOUT5{C1,A 

1870 NEXTX 

1880 DATA0,0,0,0,0,0,0,254,15,0,0,0,20,13 
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1890 FORTslTO255!OUT&C0,0}OUTJfCl,TjPRINT«42,7,">''T iNEXTT 
1900 FORQ»0Tai3jOUT&C0,Q:OUT8(Cl ,00iNEXTQ 

1910 RESTORE 1960 

1920 FaRJ=0TD13:READB 

1930 PRINT@i8,J + 7,JiPRINT943,J+7,B'' " 

1940 OUT!<C0, JsOUTIiCl ,B 
1950 NEXTJ 

1960 DATA0,0,0,0,0,0,31,7,16,16,16,0,120,0 
1970 FORW=1TO1000!NEXTW 
1980 RETURN 

1990 CLSiPRINTiPRlNTAI 

2000 PRINT@15,4,"REGISTER*':PRINT§43,4,"DATA" 

2010 PRINTil5,5, j ppintS43,5, 

2020 RESTORE 20q70 

2030 FQRX=0TO13:READA 

2040 PRINTei8,X+7,X*PRINTa43,X+7,A. 

2050 OUT&C0,XjOUTfcCl,A 
2060 NEXTX 

2070 DATA35,0,0,0,0,0,25n,0,16,16,16,0,30,12 

2080 FORX = 15TDl STEP-1 *OUT(iC0,12iOUTfcCl,X*FORT»lTD1000iNEXTTiPRINT042,19, 
"V'iXjNEXTX 

2090 FORT»lTO5000iNEXT 

2100 FORTa0TO15:OUTSiC0,T}OUTIfCl ,0iNEXTT 

2110 RETURN 

2120 CLSiPRINT(PRINTA$ 

2130 PRINTfil5,4,"REGISTER"iPRINT043,4,''DATA” 

2140 PRINT§15,5,"''^'^'“'^'^'^'^''jPRINTa43,5,'’'^'‘^'^*' 

2150 FORQ=1TO10 

2160 RESTORE 2210 

2170 FORX=0TO13)READA 

2180 PRINTei8,X+7,XiPRINT«43,X+7,A 

2190 OUT«(C0,XiOUT8(Cl,A' 

2200 NEXTX 

2210 DATA100,0,0,0,0,0,18,26,20,0,0,0,100,8 
2220 FORT»1TO1000:NEXTT,Q 
2230 FORT=0TOi5sOUT&C0,TiOUT!fCl,0:NEXT 
2240 RETURN 


2250 CLSjPRINTsPRINTAI 

2260 PRINT@15,4,''REGIST£R’'iPRINTe35,4,"DATA''iPRINT850,4,"DATA’' 

2270 PRINTai5,5, ''"'''"'^■"'^'"'"".iPRINTe35,5,"'^'''“iPRINT«50,5,“'*""^'^'' 

2280 F0RQ=1TD5 
2290 RESTORE.2350 

2300 FORX = 0TO13iREADAiOUT«(C0,XiOUT*(Cl,A 

2310 PRI.NTei8,X + 7,X:PRINTS35,X + 7,A!NEXTX 

2320 FORX = 0TO13jREADB!OUTI(C2,X:OUT8iC3,B:PRIN>Tfi50,X + 7,Bj NEXTX 

2330 FORX = 0TO1000jNEXTXiOUT8iC0,13 j 0UT!(C1,0i 0UTS(C2,13i dUTfcCS, 0 

2340 NEXTQ ' 

2350 DATA0,0,0,0,0,0,2,7,26,0,0,H0^30,8,0,0,0,0,0,0,0,7,26,0,0,0,15,8 


2370 CLSiPRINTjPRINTAI 
2380 PRINTei5,4,"REGISTER"!PRINTa35,4, 
2390 PR I NT @15,5, '""''^'’'^'^'^'":PRINTS35,5, 
2400 RESTORE 2420 

2420 DATA20,0,0,0,0, 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0^15 
2440 OUTI(C0,X:OUT8{C1 ,AjDUT!(C2,X:0UTS[C3 


''DATA“:PRINTN@50,4,"DATA’' 

"''"'"'''iPRINTe50,5,'''“'^’"'^" 

,0,0,16,16,0,16,0,16,0,0,5,50,12,10 
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2450 NEXT 


2460 FORP = 1TO150 STEPS: A=RND (15)+1J OUTI(C0,0: OUTSiCl, P*1.35: OUT8(C0,12 j 
OUT>! iCl,P:DUT*<C2,6:OUT!(C3,150/P:OUT8(C2,12:0UTS(C3,152-P 
2470 OUT«<C0,13:OUT8<C1 ,fi:FORQ=lTO1000:NEXTQ:PRINTe34,7,">''; 

P»1.35:PRINTfi34,19,*'>‘'jP:PRINT§49,13/>“jl50/P:PRINTe49,19,''>"| 152-P 
2480 PRINTe49,20,''>“|A:NEXTP 
2490 FORT=1TO5000:NEXTT 

2500 FORT=0TO13:QUT*(C0,T:0UT!(C1,0:OUT8(C2,T:OUT*tC3,0!NEXT:RETURN 
2510 CLS:PRINT:PRINTAI 

2520 PRINTei5,4,’'REBISTER'*:PRINTS43,4,''DATA" 

2530 PRINTS15,5, •''^'^'“'"^'^'^'^'':PRINTe43,5, 

2540 RESTORE 2600 

2550 FORX=0Tai3:READA 

2560 PRINT§1B,X+7,X:PRINTS43,X+7,A 

2570 OUrTJ(C0,X:OUTS(Cl ,A 

2580 NEXTX 

2590 PRINT£l;CHRI(10)j 

2600 DATA0,2,0,0,0,0,15,198,16,16,6,0,65,14 

2610 FaRX = lTO10i A=RND(45)+35:B=RND(12)+B:C = RND(17) :OUT((C0,12:OUTS<C1,A: 

PRINTe42,19,">"A:OUT8(C0,6:OUT8tCI,BiPRINTe42,13,">"B 
2620 F0RT=1 TO RND(1500)+2500: NEXTT,X 
2630 FORX«0TO13:OUT8(C0,X:OUTiCl,0:NEXTX 
2640 RETURN 
2650 REM 

2660 REM «»»«*«»«*»*«««*»««*»»« 


2670 REM * SOUND DEVELOPEMENT » 
2680 REM « COPYRIGHT * 
2690 REM * MEL SAUNDERS 3/04 * 
2700 REM ««»«*«*#*»+««#«+««*»»« 


2720 

PRINTQl 

.12, 

"R-0 

2730 

RETURN 



2740 

PRINTfil 

,12, 

"R-1 

2750 

RETURN 



2760 

PRINTei 

,12, 

"R-2 

2770 

RETURN 



2780 

PRINTQl 

,12, 

"R-3 

2790 

RETURN 



2800 

PRINTSi 

,12, 

"R-4 

2810 

RETURN 



2820 

PRINTai 

,12, 

"R-5 

2830 

RETURN 



2840 

PRINTai 

,12, 

"R-6 

2850 

RETURN 



2860 

PRINTei 
AND C 

,12, 

"R-7 

2870 

PRINT" 

BITS 

6-7 

2880 

RETURN 



2890 

PRINTil 

,12, 

"R-8 


HIGH VALUE LOW TONE. AND VICE VERSA" 


HIGH VALUE LOW TONE. AND VICE VERSA" 


HIGH VALUE LOW TONE. AND VICE VERSA" 


HIGH VALUE LOW TONE. AND VICE VERSA" 


HIGH VALUE LOW TONE. AND VICE VERSA" 


HIGH VALUE LOW TONE. AND VICE VERSA" 


LOW VALUE HIGH TONE. AND VICE VERSA" 


BITS 3-5 ADD NOISE ON A,B AND C"; 
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5 (16) GIVES ENVELOPE CONTROL OF VOLUME" 

2900 RETURN 

2910 PRINTei,12,''R-9 5 BIT VOLUME CONTROL FOR CHANNEL B.SETTING BIT 
5 (16) GIVES ENVELOPE CONTROL OF VOLUME" 

2920 RETURN 

2930 PRINTei,12,''R-10 5 BIT VOLUME CONTROL FOR CHANNEL C.SETTING BIT 
5 (16) GIVES ENVELOPE CONTROL OF VOLUME" 

2940 RETURN 

2950 PRINT@1,12,"R-11 8 BIT FINE TUNE ENVELOPE PERIOD.AGAIN ANOTHER 
PERIOD VALUE 3 HIGH VALUES GIVE LONG DECAYS ECT" 

2960 PRINT610f15f "note clock is divided by 256 and not 16" 

2970 RETURN 
2980 PRINTil,12, 

PERIOD... 

2990 PRINTei0,15 
3000 RETURN 
3010 PRINT@1,12, 

ALTERNATE. 

3020 PRINTSl^lA, 
various 
3030 RETURN 
3040 PRINT®1,12, 

FOR INPUT 
3050 PRINTil0,15 

3060 RETURN 
3070 PRINT01,12, 

FOR INPU\T 
3080 PRINTei0,15 

3090 RETURN 
3100 CLS:PRINTAl$iPRINTA$:PRINTAl$:PRINT 
3110 REM 

3120 PRINT@0,5,"Do you want to calculatei"iPRINT@0,11,D$!PRINTfiO,12, 
DI:PRINTe0, 13 

3130 PRINT@5,6,"T0NE FREQ, REGISTER VALUES or ENVELOPE (T/R or E) "| 
:AA$::INCHI 

83140 IF AA$="R" THEN 3280 
3150 IF AAI="E" THEN 3360 

3160 PRINTS3,8iINPUT"SYSTEM CLOCK FREQ (Hz) ";ST 
3170 PRINT§3,9 jINPUT"C0ARSE REGISTER VALUE (0-15) "|CT 
3180 IF CT>15 THEN 3260 

3190 PRINT@3,10iINPUT" FINE REGISTER VALUE (0-255) ";FT 
3200 IF FT>255 THEN 3260 

3210 TP=(CT#256+FT)*16iIF TP>65535 GOTO 3260 

3220 FR=ST/TPiIF FR<1000 THEN FR$="TONEa"+STR»(FR)+" Hz"iGOTO 3240 
3230 IF FR = >1000 THEN FRI = ''TONEs"+STR$ (FR/1000)+" KHz" 

3240 PRINT010,12,FRI 
3250 GOTO 3270 
3260 PRINTei0,12,"3" 

3270 GOTO 3350 

3280 PRINTe3,8iINPUT"SYSTEM CLOCK FREQ (Hz) "iST 
3290 PRINT@3,9!INPU!T"REQUIRED TONE FREQ (Hz) ";FF 
3300 C = ST/16/FF:CTsC/256:FT*=C MOD 256 
3310 IF CT>15 THEN 3340 


"R-12 8 BIT COARSE TUNE ENVELOPE PERIOD.AGAIN ANOTHER 
VALUE,HIGH VALUES GIVE VERY LONG DECAYS ECT" 

,"note clock is divided by 256 and not 16" 

"R-13 4 BIT ENVELOPE SHAPE/CYCLE BIT-0 HOLD.BIT-1 
BIT-2 ATTACK.BIT-3 CONTINUE." 

" NOTE- bits can be set in combination to provide 
waveforms triangular,square,ect." 

''R-14 8 BIT I/O PORT-A BIT 6 OF REG-7 MUST BE SET LOW 
AND VISA VERSA" 

,"note all bits are held high on input 

(and must be taken low to enter value!)" 

"R-15 8 BIT I/O PORT-B.BIT 7 OF REG-7 MUST BE SET LOW 
AND VISE VERSA" 

/'note all bits are held high on input 

(and must be taken low to enter value!)" 
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3320 PRINT810,11,"COARSE REG="INT(CT)iPRINT810,13,"FINE REG»"FT 
3330 GOTO 3350 
3340 PRINTei0,12,"" 

3350 PRIINTfiS,22,"PRESS 'C' to continue calculations or others to quit ") 

:AN$=INCH$:IF AN$="C" THEN 3100:ELSE RETURN 
3360 PRINT80,6,D$iPRINTe5,6,"ENVELOPE PERIOD TINES or REGISTER VALUES 
(P/R) "}iAQ$-lNCH$ 

3370 IF AQ$«="R" THEN 3500 

3300 PRINTS3,8:INPUT"SYSTEM CLOCK FREQ (Hz) ";ST 
3390 PRINTe3,9jINPUT"C0ARSE REGISTER VALUE (0-255) "jCT 
3400 IF CT>255 THEN 3480 

3410 PRINTe3,10iINKPUT" FINE REGISTER VALUE (0-255) "jFT 

3420 IF FT>255 THEN 3480 

3430 TP»(CT#256+FT)*256iD=ST/TP 

3440 IF D<1 THEN FR$="PERID"'D="+STR$(1/D)+" Seconds"iGOTD3470 
3450 IF D>1 AND D = <1000 THEN FR$ = "PERIOD>»" + STR$ ((1/D) *1000)+" 
MilliBecond5"}GaT0 3470 

3460 IF D>1000 THEN FR$=>"PERIOD»"+STR$((1/D)»1000000)+" Nicroseconds" 

3470 PRINT810,12,FR$:GOTO 3490 
3480 PRINT810,12,"‘j"iGOTO 3350 
3490 GOTO 3350 

3500 PRINTe3,0iINPUT"SYSTEN CLOCK FREQ (Hz) "iST 
3510 PRINTe3,9iINPUT"ENVEL0PE PERIOD (SECS) "|FF 
3520 C*ST/(256 /FF)iCT«C/256jFT*C MOD 256 
3530 IF CT>255 OR FT>255 THEN 3560 

3540 PRINTS10,11,"COARSE RE.G«"INT(CT)iPRINT810,13,"FINE REQ="FT 
3550 GOTO 3350 
3560 PRINT06,12,"" 

3570 GOTO 3350 

3580 PRINT03,23iINPUT" ";TT$ 

3590 PRINT£l)CHR$(27)iCHR$(64);AI 
3610 NT=((LEN(TT*)+7)/2):NNT=32-NT 
3620 PRINT£1;TAB(NNT,32);"TITLE= "+TT$ 

3630 PRINT£ljCHR$(10)i 

3640 PRINT£1|TAB(3); "REG."jTAD(12)"DESCRIPTION"|TAB(49)"PSG-l")TAB(59)"PSG-2" 
3650 PRINT£1|CHR$(10); 

3660 RESTORE 3690 
3670 FORX=0TO13 

3680 READDA$:PR1NT£1;TAB(4,32);X;TAB(10)DA«;TAB(50,46)S(X);TAB(60,46}T(X)I 
NEXTX 

3690 DATA"CH A FINE. 8 BITS","CH A COURSE. 4 BITS","CH> B FINE. 

8 BITS","CH B COURSE. 4 0ITS","CH C FINE. 8 BITS" 

3700 DATA"CH C COURSE. 4 BITS","NOISE TONE. 5 BITS","ENABLE 3-BITS JSOUND. 
3-NOISE. 2-1/0","CH A AMP","CH B AMP" 

3710 DATA"CH C AMP","ENV PERIOD FINE. 8 BITS","ENV PERIOD COURSE. 8 BITS", 
"ENV SHAPE. 4 BITS" 

3720 PRINT£0 
3730 GOTO 1680 
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DISK SOFTWARE 

The newsletter will list any disk software that members may wish to make 
availiable to others. It should run under CP/M 2.2 on a normal Interak. 
Please note that the supplier is liable for bug repairs, delivery and 
assistance. 


CP/M 2.2 

The industry standard disk operating system for the Interak computer. Needs a 
VDU 2K. Customised BIOS by Wolf Schroeder with customised MOVCPM. Supplied 
with multi diameter diskette Formatter and considerable extra utilities not 
normally provided by CP/M implimentations. Ready to Boot up and go on a 3.5" 
disk. Contact Greenbank Electronics for further details. 


ZYBASIC 4 

Runs to CP/M 2.2 with a VDU 2K. Any standard BIOS. Supports CP/M disk file 
program storage. Enhanced Keyword set, memory manager to allow correct use of 
availiable memory. 11 characters long variable names, Multi-dimensioned 
arrays of up to 32767 dims each up to 32767. Fully downward compatable with 
previous versions and will load programs from tape or disk and save them to 
tape or disk. Supplied on a 3.5" disk with run time program source files. New 
version of the manual is availiable seperatly. Previous users can be upgraded 
at cost. Contact Greenbank Electronics for further details. 
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TAPE SOFTWARE 

See CONTACTS page at the end of this issue for "ORDER FROM" addresses. 

Software supplied is the responsibility of the "ORDER FROM". Please 

deal directly with the "ORDER FROM" in the event of bugs ect. 

You may use this section to sell software to other users. Send a brief 
description of your product giving details of its distribution and price, to 
the EDITOR. Note that you will be responsible for the support of your own 
product. The newsletter cannot be held responsible for or get involved with 
duff code or distributers. Of course we will publish letters deriding any 
product that fails to live up to its claims. 

MACHINE CODE 


NAME 

DESCRIPTION 

VDU 

ORDER FROM 

COST 

FIGFORTH 

FORTH COMPILER 

2K 

P.VELLA 

£15.00 

INTERPLAY 

BULLETIN BOARD DRIVER 

2K 

MScM ELECTRONICS 

£ 4.00 

MEGABUG 

DEBUG/TRAINING PACKAGE 

2K 

P.VELLA 

£13.00 

VELTEXT 

TEXT EDITOR 

2K 

P.VELLA 

£ 5.00 

XTAL BASIC 

14K BASIC 

2K 

P.VELLA 

£40.00 

ZYBASIC 3A 

INTERAK BASIC (TAPE) 

2K 

6REENBANK 

£15.95 

ZYBASIC 3C 

INTERAK BASIC (ROM) 

2K 

GREENBANK 

£27.75 

ZYMON 2.V203 

INTERAK MONITOR 

2K 

GREENBANK 

£15.95 


■aBaBBaaaBBBBBBBSBBSSSaBBaBBSBSaSBBSSSSaSaaSSBSSBSBBaSBBSeSSSaaSSSBBSBSBSBSS 


XTAL BASIC 


NAME 

DESCRIPTION 

VDU 

ORDER FROM 

COST 

AWARI 

GAME 

2K 

M.SAUNDERS 

PP 

BIORYTHMS 


2K 

M.SAUNDERS 

PP 

CHAR DES 

CHARACTER DESIGNER 

2K 

M.SAUNDERS 

£ 5.50 

I-SPY 

GAME 

2K 

M.SAUNDERS 

PP 

SOUND DEV 

88S383SBSS3a 

SOUND DEVELOPMENT 

SBSSSBBBBBBBSBBBBSSSSS 

2K 

SSBSBBSB 

M.SAUNDERS 

SaSSSBSSSSSSBB 

£ 5.50 

BBBSBBSSSS: 


Keyt PP - Postage Sc packing. 

POA - Please enquire (Phone for price.) 
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SMALL AOS 

FOR SALE 

Tape Labels 3">iE1.675'' in red, blue, green and yellow . £ 2.t30p per 180 

Tape/Disk labels 4"xl.5“ in blue, green and yellow .. £ 3.08p per 108 

Disk labels 2.75''xl.5'' for 3.5" drives pack of 20x5 colours .. £ 4.00p per 100 

Printout ruler/Template 16"x3.5" smoked grey, with clear 

lined window for reading printout, 23 flowchart cutouts. £ 4.70p each 

Disk boxs for 10 x 3.5" . £ 4.50p each 

Disk boxs for 10 x 5.25" ... £ 6.20p each 

Disk binder for 3.5" . £10.48p each 

Disk binder for 5.25" .. £13.25p each 

Disk binder for B" . £16.6Bp each 

Epsom printer ribbons (80 series) . £ 2.76p each 

Epsom printer ribbons (100 series) . £ 4.00p each 

Printout binder 9.785"xl2" burst/unburst . £ 3.75p each 

Printout binder 17.5"xir* burst/unburst . £ 4.25p each 

All require postage to be included. 


MEL SAUNDERS, 7 DRUMCLIFF RD, THURNBY LODGE, LEICESTER, LE5 2LH. 


CONTACT TAPES. 

BACK ISSUES... 

BOOKS. 

DATA SHEETS... 

EDITOR. 

GREENBANK .... 

M!(M ELECTRONICS 
M.SAUNDERS ... 
MEMBERSHIP.... 

P.VELLA . 

R.ELDRIDGE ... 
SUBSCRIPTIONS. 


CONTACTS 

Communicate with other members by cassette tape. 

Point Contact tapes,7 Drumcliff Rd, Thurnby Lodge, 

Leicester, LE5 2LH. 

Can be obtained fromi" 

D.Parkins, Greenbank Electronics, 92 New Chester road. 

New Ferry, Wirral, Merseyside, L62 SAG. 

Lend, borrow, and swop books via 

R.E.Bowyer, 45 Ford drive, Yarnfield, Stone, Staffs. 

Swop, borrow, lend, chip data sheets 
7 Drumcliff road,Thurnby Lodge,Leicester ,LE5 2LH. 

Send submissions to 

R.Eldridge, 28 Wycherley Close, Blackheath,London,SE3 7QH. 
Greenbank Electronics Ltd, 92 New Chester road. 

New Ferry, Wirral, Merseyside, L62 5AG. 

, 8 Ayre view. Bride, Isle of man. 

M.Saunders, 7 Drumcliff road,Thurnby Lodge,Leicester,LE5 2LH. 

To join, renew or change your details contact i - 

Tom Evans, 129 Cranbourne Waye, Hayes, Middlesex, UB4 OHR. 

19 Ford Drive, Yarnfield, Staffs. 

28 Wycherley Close, Blackheath, London, SE3 7QH. 

For information and payments please contact \ - 

Tom Evans, 129 Cranbourne Waye, Hayes, Middlesex, UB4 OHR. 
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